viết chương trình pascal tính tổng các số nguyên dương lớn hơn một số N nhập từ bàn phím

*Chỉ có bé hơn n, bé hơn hoặc bằng n thôi nhé bạn, chứ lớn hơn n thì tổng = $\infty$

$----------------$

*Bé hơn n:

uses crt;
var n,i,s:longint;
begin
   clrscr;
   write('Nhap n: '); read(n);
   for i:=1 to n-1 do inc(s,i);
   writeln('Tong: ',s);
   readln
end.

*Bé hơn hoặc bằng n:

uses crt;
var n,i,s:longint;
begin
   clrscr;
   write('Nhap n: '); read(n);
   for i:=1 to n do inc(s,i);
   writeln('Tong: ',s);
   readln
end.

*Khác ở chỗ là bé hơn hoặc bằng n là đến n, còn bé hơn n là đến n-1

uses crt;

var s,n,i: integer;

begin

 clrscr;

  write ('nhap n: ');  readln (n);

for i:=1 to n do

 s:=s+i;

writeln ('tong la: ',s);

readln;

end.