Viết chương trình fascal tính 1+2+3+4+...+n

uses crt;

Var

  i,n:integer;  a:real;

begin

  clrscr

  Write('Nhap n:');

  Readln(n);

  a:=0;

  For i:=1 to n do

     a:=a+i

  Writeln('a=',a:3:1);

  Readln;

End.

Program tinh_tong; 
Uses crt; 
Var s:longint; 
n,i:integer; 
Begin 
clrscr; 
write('nhap vào số n: ');readln(n); 
for i:=1 to n do s:=s+i; 
write('tong tren co ket qua la: 's); 
readln; 
End.