program function pascal

Program Steven_Pascal;
Uses crt;

Function Luassegitiga(alas:integer;tinggi:integer):real;
Var luas:real;
Begin
Luas:=alas*tinggi/2;
Luassegitiga:=luas;
End;

Var a,t:integer;
Luas:real;
Begin
Writeln('Program Fungsi Luas Segitiga');
Writeln;
Write('Masukkan Nilai Alas:');readln(a);
Write('Masukkan Nilai Tinggi:');readln(t);
Write('Luas Segitiganya adalah:',luassegitiga(a,t):0:2);
End.