Население города увеличивается на 3% каждый год. В 1983 году население города составляло 65000. Напишите программу которая выведет на экран предсказываемую численность населения города в каждом году вплоть до 1999. Написать БЛОК-СХЕМУ. Мне нужна именно блок-схема. Программа уже составлена.
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1983 to 1998 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.