Задача ** циклPascal ABC

Question

Задача на цикл
Pascal ABC

---

Answer 1

Var i,n,sum,count: Integer;
begin
sum:=0;
count:=0;
for i:=1 to 20 do
begin
n:=random(100);
writeln('Число ',i,': ',n);
if (n mod 3=0) or (n mod 5=0) then
begin
sum:=sum+n;
count:=count+1;
end;
end;
writeln('Кол-во: ',count);
writeln('Сумма: ',sum);
writeln('Среднее: ',sum/20);
end.