Program menghitung luas segitiga

uses crt;

var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);

var
luas:real;

begin
clrscr;
luas:=a*t/2;
writeln(‘Luas segitiga =’,luas);
end;

begin
writeln(‘Masukkan ukuran alas =’);readln(alas);
writeln(‘Masukkan ukuran tinggi =’);readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.