1. Найти среднее арифметическое двузначных чисел кратных 72. Найти среднее арифметическое первых 10 чисел делящихся на 5(в паскале)

//1
var
average:real;
i,cnt:integer;
Begin
For i:= 10 to 99 do
  if (i mod 7 = 0) then
    begin
      average := average + i;
      inc(cnt);
    end;
average:=average / cnt;
Writeln(average);
end.
//2
var
average:real;
i,cnt:integer;
Begin
i:= 0;cnt:= 0;
while (true) do begin
  inc(i);
  if (i mod 5 = 0) then
    inc(cnt);
  average:=average + i;
  if (cnt = 10) then
    break
end;
average := average / 10;
Writeln(average);
end.