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

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.