С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.
С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.