Question

Даю 60 баллов! Задание внутри

Answer 1

program pr1;
var a, i: integer;
begin
a:= 5;
for i:= 1 to 9 do  
a:= a + 2;
writeln ('10 день>>>', a);
end.