turbo pascal program lingkaran

uses wincrt;
var
kl,ll,v,lt,t,r:real;
kb:char;
label awal;

begin
writeln;
awal: 
writeln(' program lingkaran dan tabung');
writeln('+++++++++++++++++++++++++++++');
write('masukkan jari-jari: ');readln(r);
write('masukkan tinggi   : ');readln(t);
ll:=3.14*sqr(r);
kl:=2*3.14*r;
lt:=kl*t+2*ll;
v:=ll*t;
writeln('luas lingkarannya     : ',ll:2:1) ;
writeln('luas tabungnya        : ',lt:2:1) ;
writeln('keliling lingkarannya : ',kl:2:1) ;
writeln('volumenya             : ',v:2:1) ;
writeln('=============================') ;
writeln('anda ingin lagi       : ');kb:=readkey;
if kb='y' then goto awal;
end.