AlGORITMA DAN PROGRAM PASCAL DI DELPHI

Ini saya share mengenai program luas segitiga..
kalau mau bertanya silakan komen,,

program luas_segitiga;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a:integer;{alas segitiga}
t:integer;{tinggi segitiga}
l:real;{luas segitiga}
begin
writeln('----------------------MENGHITUNG LUAS SEGITIGA------------------');
write('masukan nilai alas :  ');   readln(a);
write('massukan nilai tinggi : ');   readln(t);
writeln('');

l:=a*t/2;

writeln('luas segitiga adalah :',l:0:0);
readln;

end.