Kode Rumus Luas Layang-layang pada Pascal

Berikut kode rumus luas layang-layang pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":

Kode Berikut untuk Copy Paste:

uses crt;
var d1,d2,L:Real;
begin
clrscr;
write('Masukkan Diagonal1 Layang-layang(cm):'); readln (d1);
write('Masukkan Diagonal2 Layang-layang(cm):'); readln (d2);
L:=1/2*d1*d2;
writeln;
writeln('Luas Layang-layang=',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