Паскаль какие натуральные числа от 1 до 100 кратны 6?

Program n1;
var i: integer;
begin
for i:=1 to 100 do if i mod 6=0 then write(i,' ');
end.

Program prog;
var i:integer;

begin
for i:=1 to 100 do
if i mod 6 = 0 then
write(i, '  ');
end.