program test;
var
i,s,p: integer;
begin
i:=0
s:=99;
while i < 4 do
s:=s+1
if s mod 25 = 0 then
writeln(s);
p:=1*p*s;
i:=i+1;
end;
writeln(p);
end.
ответ:15
Объяснение:1+2+3+4+5
program test;
var
i,s,p: integer;
begin
i:=0
s:=99;
while i < 4 do
begin
s:=s+1
if s mod 25 = 0 then
begin
writeln(s);
p:=1*p*s;
i:=i+1;
end;
end;
writeln(p);
end.
ответ:15
Объяснение:1+2+3+4+5