Kode Rumus Luas Permukaan Kerucut pada Pascal

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


Kode Berikut untuk Copy Paste :

uses crt;
var r,s,L:Real;
begin
clrscr;
write('Masukkan Jari-jari alas pada Kerucut(cm):'); readln(r);
write('MasukkanApotema (sisi miring kerucut)(cm):'); readln(s);
L:=22/7*r*r+2*22/7*r*s;
writeln;
writeln(Luas Permukaan Kerucut=',V: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