Выведите на экран все числа от 10 до 595, которые делятся на 5 и 13

program zz1;

var i:integer; / /заводим переменную для цикла

begin

for i:=10 to 595 do / /организуем перебор всех чисел от 10 до 595

if (i mod 5 = 0) and (i mod 13 = 0) then write (i,' '); / /проверяем, если очередное число из заданного промежутка делится на пять и делится на тринадцать, то выводим это число на экран в строчку через пробел

end.