Составьте программу которая выводит ** экран сумму кратных 3 и 4 из диапазона от 1 до 50

Question

Составьте программу которая выводит на экран сумму кратных 3 и 4 из диапазона от 1 до 50

Answer 1

var i: Integer;

begin

i := 12;

while i < 50 do

begin

WriteLn(i);

i := i + 12;

end;

end.

Comments

почему end два раза?

---

Конец цикла while.

---

спасибо.