TIDAK BISA NGE PING DI CMD

assalamu`alaikum wr.wb

Selamat berbahagis buat gaes gaes yang mau membaca blog saya.
saya akan berbagi sintaks or scrib cara membuat program menghitung luas lingkaran dan volume tabung.

Dengan mengunakan aplikasi pascal.
oke gaes langsung saja ini scrib nya.

program luas_lingkaran_dan_vol_tabung;

uses wincrt;
const
phi=3.14;

var
r,t:real;
l,v:real;

begin
writeln ('Program Menghitung Luas Lingkaran dan Vol. Tabung');
writeln ('By: QOSIM qosimnurdin@yahoo.com');
writeln;
write ('Masukan jari - jari (r) = ');readln(r);
writeln;
write ('Masukan tinggi (t) = '); readln(t);
l:=phi*r*r;
v:=phi*r*r*t;
writeln('Luas Lingkaran : ',l:5:2,' cm2');
writeln('Volume Tabung : ',v:5:2,' cm3');
end.