Kode Rumus Volume Tabung pada Pascal

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

Kode Berikut untuk Copy Paste :

uses crt;
var r,t,V:Real;
begin
clrscr;
write('Masukkan Jari-jari alas Tabung(cm):'); readln(r);
write('Masukkan tinggi Tabung(cm):'); readln(t);
V:=22/7*r*r*t;
writeln;
writeln('Volume Tabung=',V:10:2,'cm3');
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