Составить программку: 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" , как количество чисел, если число делится на 5 без остатка, то количество чисел +1,
Ответ программки: 7 чисел

var i:integer;

begin

for i:=10 to 40 do

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

end.