а как решить? решение надо

в первый круг цикла к s прибавиться 50, во второй 33, в третий 25, в четвертый 20. Вот и сложи))

Program prim;
uses crt;
var
s,i,n:integer;
begin
S:=0;n:=5;
for i:=2 to n do s:=s+100 div i;
S:=0;
n:=5;
for i:=2 to n do s:=s+100 div i;
writeln('s',s);
end. (128)

Она же не просила программу составлять. Нужно было просто ответ с решением. Зачем так заморачиваться?

мне не в пдалу)

я написал ее за 1мин)

Все равно лишние телодвижения))