Birky Akbar XI IPA 4

uses wincrt;
var
si,ls,kl,dg:real;
kembali:char;pilih:integer;
label awal;
begin
awal:
writeln('1.program luas');
writeln('2.program keliling');
writeln('3.program diagonal');
write('masukkan sisi:');readln(si);
write('program yang anda pilih:');readln(pilih);
if pilih=1then
begin
ls:=si*si;
writeln('besarnya luas:',ls:2:2);
end;
if pilih=2then
begin
kl:=4*si;
writeln('besarnya keliling adalah:',kl:2:2);
end;
if pilih=3then
begin
dg:=sqrt(sqr(si)+sqr(si));
writeln('besarnya diagonal:',dg:2:2);
end;
writeln('anda ingin lagi (y/t):');
kembali:=readkey;
if kembali='y'then goto awal;
end.