Question

Срочноо,нужно составить блок-схему или прогу на Паскале,задача гласит:"Я каждый месяц откладывал деньги,сколько у меня будет за 1год"(алгоритм циклический).

Answer 1

Program Perimetr;
Var
month,a,summa:integer;
begin
summa:=0;
month:=1;
readln(a);
while month < 12 do
begin
month:=month+1;
summa:=summa+a;
writeln(summa);
end
end.