Viết chương trình nhập một số nguyên sau đó tính tổng các số nhỏ hơn số vừa nhập từ bàn phím có sử dụng chương trình con(thủ tục).

Program FNG;
Uses crt;
Var n: longint;

Function tong(a: longint): longint;
Var i: longint;
Begin
        tong:=0;
        For i:=1 to a do
                tong:=tong+i;
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Write('Tong = ',tong(n));
        Readln
End.

uses crt;
var n:longint;
{---Chuong-trinh-con---}
procedure sum(n:longint);
var i,s:longint;
begin
   s:=0;
   for i:=1 to n-1 do 
      inc(s,i);
   writeln('Tong: ',s);
end;
{---Chuong-trinh-chinh---}
begin
   clrscr;
   write('Nhap n: '); readln(n);
   sum(n);
   readln
end.