Составить программу: 1) вычисление натуральных чисел кратных 5, от 10 до 40

Program N_1;

var a, b:integer;

begin

b:=0;

begin

for a:=10 to 40 do

if a mod 5 = 0 then

b:=b+1;

end;

writeln ('Количество чисел, кратных 5 - ', b)

end.

Программа использует "a", как счетчик от 10 до 40, а "b", как количество чисел, если число делится на пять без остатка, то количество чисел + 1,

Ответ программы: 7 чисел

var i:integer;

begin

for i:=10 to 40 do

if i mod 5 = 0 then write (i,' ')

end.