Question

В паскале помогите пожалуйста

Answer 1

var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить