Вывести на экран все числа из промежутка от 30 до 80, кратные 5

Ответ:

var a:integer;

begin

a:=30;

for a:=30 to 80 do

if a mod 5=0 then

Writeln(a);

end.

Объяснение: