var k, i: integer;
begin
readln(k);
for i:=1 to k do
if i mod 3 = 0 then write(i, ' ');
end.
Объяснение:
Программа напишет все числа кратные 3 до k
