program FindNum;
var
n: Integer;
begin
n := 10;
while n <= 99 do begin
if (n mod 2 = 0) and (n mod 3 = 0) then
Write (n, ' ');
Inc (n);
end;
ReadLn;
end.
