Question

Напишите программу, которая с помощью цикла for выдает четные числа от 1 до 19 через запятую

Answer 1

var i:integer;

begin

for i:=1 to 19 do begin

if i mod 2 = 0 then

write(i,', ');

end;

end.