вывести на экран все двузначные числа,которые кратны 15
var i:integer;
begin
for i:=15 to 90 do if i mod 15 = 0 then write(i,' ');
end.