вывести на экран все двузначные числа кратные 6​(паскаль) ​

Program abc;

var a:integer;

begin

for a:=10 to 99 do

if a mod 6=0 then

write(a,' ');

end.