mod2*

Нет лучше вот так. program one;
uses crt;
var i,x:integer;
n:real;
begin
x:=0;
p:=1;
for i:=2 to 100 do
begin
if i mod 5=0 then s:=s+i;
if i mod 5=0 then n:=n*i;
end;
writeln('Сумма кратных 5 ', x);
writeln('Произведение кратных 5 ',n);
end.

program one2;
uses crt;
var
i,x:integer;
n:real;
begin
x:=0;
n:=1;
for i:=2 to 100 do
begin
if i mod 5=0 then x:=x+i;
if i mod 5=0 then n:=n*i;
end;
writeln('Сумма кратных 5 ', x);
write('Произведение кратных 5 ', n);
end.
Без ошибок