Программа для вычисления суммы n чисел

СLS

a:

INPUT n

IF n<1 OR INT(n)<>n THEN PRINT "не может быть": GOTO a

FOR i=1 TO n

s=s+i

NEXT i

PRINT "Сумма"; n;  "чисел равна"; s

END

Если правильно понял,то вот

var

  n,i,sum:integer;

begin

  repeat

    write ('N = ');

    readln(n); 

  until n>0; 

  sum:=0;

  for i:=1 to n do sum:=sum+i;

  writeln ('Summa: ',sum);

  readln;

end.