Program Mencari Luas N Buah Segitiga Menggunakan Prosedure

Program Segitiga;
uses crt;
Var
   i, N : integer ;
Procedure HitungLuasSegitiga;
Var
        Alas        :    real;
        Tinggi    :     real;
        Luas         :    real;
Begin
     Write (' Panjang alas segitiga ? ') ; readln (Alas);
     Write (' Tinggi segitiga ? ') ; readln (Tinggi);
     Luas := ( Alas * Tinggi)/2;
     Write ('Luas Segitiga = ',Luas);
End;
Begin
Write ('Banyak segitiga ?'); readln (N);
For i :=1 to N do
    HitungLuasSegitiga;

End.