Menghitung Rumus Segitiga dengan Pascal

program segitiga1;
uses crt;

var a,t:integer;
L:real;
const k=0.5;

begin
clrscr;

a:=3;
t:=3;
l:=k*(a*t);

writeln(l);
readln;


end.