turbo pascal

uses wincrt;
label atas;
var a1, a2, t1, t2, r, LL, LS1, LS2, u1, u2, s, b, pi:real;
pilih: integer;
lagi:char;
begin
atas:
clrscr;
writeln('PROGRAM PEMILIHAN');
writeln('======================================================');
writeln('1. PROGRAM RUMUS MENGHITUNG LUAS LINGKARAN');
writeln('2. PROGRAM MENGHITUNG SELISIH DUA BUAH BILANGAN');
writeln('3. PROGRAM MENGHITUNG SELISIH LUAS DUA BUAH SEGITIGA');
writeln;
writeln('======================================================');
write('Pilih 1-3: ');readln(pilih);
case pilih of
1:begin
writeln('1. PROGRAM RUMUS MENGHITUNG LUAS LINGKARAN');
writeln('======================================================');
write('Jari-jari        = '); readln(r);
pi:=22/7;
LL:=pi*sqr(r);
write('Jadi Luasnya adalah      : ',LL:2:2);
writeln;
readln;
writeln('======================================================');
end;
2:begin
writeln('2. PROGRAM MENGHITUNG SELISIH DUA BUAH BILANGAN');
writeln('=====================================================');
write('Bilangan 1          = ');readln(u1);
write('Bilangan 2          = ');readln(u2);
b:=u2-u1;
write('Jadi selisih dua buah bilangan adalah : ',b:2:2);
writeln;
readln;
writeln('======================================================');
end;
3:begin
writeln('3. PROGRAM MENGHITUNG SELISIH LUAS DUA BUAH SEGITIGA');
writeln('======================================================');
write('Alas segitiga pertama              =  ');readln(a1);
write('Alas segitiga kedua                =  ');readln(a2);
write('Tinggi segitiga pertama            =  ');readln(t1);
write('Tinggi segitiga kedua              =  ');readln(t2);
LS1:=0.5*a1*t1;
LS2:=0.5*a2*t2;
s:=LS1-LS2;
write('Jadi selisih luas duah buah segitiga adalah : ',s:2:2);
writeln;
readln;
writeln('======================================================');
end;
end;
write('Apakah anda ingin memilih lagi ? [ Y/T ] : ');readln(lagi);
if (lagi='Y') then
GoTo atas
end.