Menghitung luas segitiga dalam pascal

hari ini, saya akan membagikan cara mencari luas segitiga dalam pascal
silahkan dilihat

uses crt;
var a, t :integer;
begin
clrscr;
writeln('==SEGITIGA==');
write('Masukkan Alas : '); readln(a);
write('Masukkan Tinggi : '); readln(t);
writeln('Luas = ', a*t/2:0:2);
readkey;
end.