Pascal Kalkulator

program kalkulator;
uses wincrt;
var
menu:integer;
lg:char;
procedure penjumlahan;
var
x,y,z:real;
begin
write('masukan angka 1 ');readln(x);
write('masukan angka 2 ');readln(y);
z:=x+y;
write(z);
end;
procedure pengurangan;
var
x,y,z:real;
begin
write('masukan angka 1 ');readln(x);
write('masukan angka 2 ');readln(y);
z:=x-y;
write(z);
end;
procedure perkalian;
var
x,y,z:real;
begin
write('masukan angka 1 ');readln(x);
write('masukan angka 2 ');readln(y);
z:=x*y;
write(z);
end;
procedure pembagian;
var
x,y,z:real;
begin
write('masukan angka 1 ');readln(x);
write('masukan angka 2 ');readln(y);
z:=x/y;
write(z);
end;
begin
repeat clrscr;
writeln('menu kalkulator');
writeln('1.penjumlahan');
writeln('2.pengurangan');
writeln('3.perkalian');
writeln('4.pembagian');
writeln('5.exit');
write('pilih menu(1/2/3/4/5):');readln(menu);
case menu of
1:penjumlahan;
2:pengurangan;
3:perkalian;
4:pembagian;
5:exit;
end;

writeln('mau pilih lagi (Y/T):');
readln(lg);
until upcase(lg)<>'Y';
end.