Kode Rumus Luas Segitiga sama sisi pada Pascal

Berikut kode rumus luas segitiga sama sisi bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":


Kode Berikut untuk Copy Paste :

uses crt;
var a,t,L:Real;
begin
clrscr;
write('Masukkan alas Segitiga Sama sisi(cm):');Readln(a);
write('Masukkan tinggi Segitiga Sama sisi(cm):');Readln(t);
L:=1/2*a*t;
writeln;
writeln('Luas Lingkaran=',L:10:2,'cm2');
readln;
end.

Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat