contoh pascal menghitung Luas segi tiga

program segitiga;
uses wincrt;
var a,t,l:real;
begin
     writeln('                       ==============================');
     writeln('                       ==*Menghitung Luas Segitiga*==');
     write('================================================================================');
     writeln;
     writeln;
     write('Masukkan alas segitiga    = '); readln(a);
     write('Masukkan tinggi segitiga  = '); readln(t);
     writeln;
     l:=1/2*a*t;
     write('Maka luas segitiga        = ',l:5:2);
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.