На стоянке нумеровали парковочные места и случайно на двух местах написали один и тот же номер. какой номер написали дважды, если сумма всех номеров составила 1322?

Решить задачу можно так:
var i,sum:integer;
begin
sum:=0; i:=0;
while sum<1322 do
 begin
 i:=i+1; sum:=sum+i;
  end;
writeln(i,' ',sum);
writeln('Дважды написали ',i-(sum-1322));
end.
Получается 47