Запишите на языке паскаль алгоритм решения . клиент некоторого банка 1 марта открыл счёт, вложив 10000 руб. через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. определить через сколько месяцев размер вклада превысит 12000 руб. !

var

  month, sum: real;

begin

  sum : = 10000;

  month : = 0;

  while (sum < 12000) do

  begin

    sum : = sum + (sum / 100) * 2;

    month : = month + 1;

 
end;

  writeln('через ',month,' месяцев размер вклада превысит 12000 руб');

end.

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.