Luas Lingkaran dengan Pascal

program LuasLingkaran;
uses crt;
var
diameter,jari,luas : real;
pilihan : char;
label mulai;
begin
mulai:
clrscr;
write('Masukkan diameter :');
readln(diameter);

jari := diameter/2;
luas := pi * jari*jari;

write('Luas lingkaran : ', luas:2:2);
readln;
write('Mau menghitung lagi ? (Y/T) ');
readln(pilihan);
if (pilihan = 'Y') or (pilihan = 'y') then
begin
goto mulai;
readln;
end;
end.