Хех, тоже Апробация...ответом будет 101
.............................
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.
Если будут неправильно то попросите меня исправить
1туда 2 кота
2туда сабаку
3туда 2 гусей обратно 2 котов
4туда гуся
5туда 2 кота