Составить блок-схему

СОСТАВИТЬ БЛОК_СХЕМУ ПО СТАНДАРТАМ ГОСТА
Ежемесячная стипендия студента составляет А рублей, а расходы на «жизнь» превышают стипендию и составляют В рублей в месяц. «Жизнь» дорожает ежемесячно на 3%. Разработать алгоритм и написать программу расчета суммы денег, которую надо единовременно попросить у родителей, чтобы можно было прожить учебный год (10 месяцев), используя только эти деньги и стипендию.
var a,b,s1,s2:real;
i:byte;
begin
write('Введите размер стипендии a=');
readln(a);
write('Введите размер расходов на проживание в месяц b=');
readln(b);
s1:=10*a;
s2:=0;
for i:=1 to 10 do
begin
s2:=s2+b;
b:=b*1.03;
end;
writeln('Стипендия за 10 мес.=',s1:0:2);
writeln('Расходы за 10 мес.=',s2:0:2);
if s2