Получить все двузначные числа, кратные 3 — Pascal(Паскаль)

var
i:integer;
begin
for i:=10 to 99 do
    if i mod 3 = 0 then
      write(i,' ')
end.