Contoh Program menghitung Luas Segitiga pada Pascal

Program Menghitung Luas Segitiga

program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas:');
readln (a);
write('Masukan Nilai Tingi:');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.


hasilnya seperti dibawah ini:

Masukan Nilai Alas:12
Masukan Nilai Tingi:8

Luas Segitiga adalah = 48.00