am mare nevoie de ajutor, rapid, la punctul d ! DAU COROANA si 25 pts!!

Răspuns:
program p1;
var i,j,s,x : integer;
begin
s:=0;
for i:=1 to 5 do
begin
write('x=');
readln(x);
s:=s+x;
for j:=1 to i do begin
writeln('s=',s);
end;
end;
end.