Luas dan Volum Kerucut

uses wincrt;
const pi=3.14;
var r,l,v,t,s:real;
begin
gotoxy(20,1);writeln('"Menghitung Luas dan Volum Kerucut"');
writeln(' ');
write('Diketahui : ');
gotoxy(5,4);write('r = ');readln(r);
gotoxy(5,5);write('t = ');readln(t);
writeln(' ');
write('Ditanya : ');
writeln('Luas & Volume ?');
s:=sqrt(sqr(t)+sqr(r));
l:=pi*r*(r+s);
v:=(pi*r*r*t)/3;
writeln(' ');
;writeln('Jawab : ');
gotoxy(5,10);write('Luas = ',l:5:2);
gotoxy(5,11);write('Volume = ',v:5:2);
end.