var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
var
Сложноооо невозможно это нереальноооооооооооооооооооо прости но я незнаю