Kode Rumus Luas Permukaan Tabung pada Pascal

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


Kode Berikut untuk Copy Paste :

uses crt;
var r,t,L:Real;
begin
clrscr;
write('Masukkan Jari-jari alas pada Tabung(cm):'); readln(r);
write('Masukkan tinggipada Tabung(cm):'); readln(t);
L:=2*22/7*r*r+2*22/7*r*t;
writeln;
writeln(Luas Permukaan Tabung=',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