с помощью оператора цикла с предусловием вывести на печать все двузначные числа четные и кратные 3

Ответ:

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.