Program Menghitung Luas dan Volume Kerucut (Program Pascal)

Berikut sintaks program menghitung luas dan volume kerucut:

program Menghitung_Luas_dan_Volume_Kerucut;
uses crt;
var d,s,r,t,L,V:real;
begin
clrscr;
writeln('masukkan nilai diameter = '); readln(d);
writeln('masukkan nilai tinggi = '); readln(t);
r:=d/2;
s:=sqrt(sqr(r)+sqr(t));
L:=pi*r*s+pi*sqr(r);
V:=1/3*pi*sqr(r)*t;
writeln('Luas = ', L:2:2, ' Volume = ', V:2:2);
readln;
end.

Selamat mencoba