Получилось) Но, если проверить, то зачастую программа выдает 0, когда должна быть единица. Может я неправильно записала?

Var N,C:integer;
begin
write('Введите место числа N=');
read(N);
c:=1;
While N<=C do N:=N-C; c:=c+1;
If N<=C then begin read(N) end;
If N=1 then begin write(1)end;
If N<>1 then begin write(0)end;
end.