Kode Rumus Luas Permukaan Limas Segiempat pada Pascal

Berikut kode rumus Luas Permukaan Limas Segi Empat pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":

uses crt;
var s,a,t,L:Real;
begin
clrscr;
write('Masukkan sisi alas pada Limas Segiempat(cm):'); readln(s);
write('Masukkan alas sisi tegak pada Limas Segiempat(cm):'); readln(a);
write('Masukkan tinggi sisi tegak pada Limas Segiempat(cm):'); readln(t);
L:=s*s+4*1/2*a*t;
writeln;
writeln(Luas Permukaan Limas Segiempat=',L:10:2,'cm2');
readln;
end.