Phương pháp giải chi tiết:

- Hãy viết n là số nguyên nhập từ bàn phím:

 program ct;

 var s,i,n:integer;

 write('Nhập n:=');readln(n);

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

 writeln('Tổng là:',s);

 program ct;

 var t,n,i:integer;

 for i:=1 to 200 do t:=t+i;

 writeln('Tổng của 200 số nguyên đầu tiên là:',t);

 program ct;

 var tich,n,i:integer;

 for i:=1 to 30 do tich:=tich*i;

 writeln('Tích của 300 số nguyên đầu tiên là: ',tich);

 program ct;

 var i,n,a:integer;

 for i:=1 to a do a:=a*i;

 writeln('n:=',a);

!CHÚC BẠN HỌC TỐT!

uses crt;
var n, i, res: longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do inc(res, i);
    writeln(res);
readln;
end.