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.