Turbo Pascal Program Luas Segitiga

uses crt;
var
a,t,L:real;
begin
write('masukan alas:');readln(a);
write('masukan tinggi:');readln(t);
L:=a*t/2;
writeln('Hasil Luas:',L);readln;
end.