Объяснение:
var i,N,k: integer;
begin
Write('введите N ');
readln (N);
k:=0;
for i:= 1 to N do
k:=k+i;
write (k);
readln
end.
