Program Prosedur Operasi Bilangan

program prosedur1;
uses wincrt;
var
d:integer;
procedure tambah;
var
x,y,z:real;
begin
clrscr;
writeln('menu pertambahan');
writeln('masukkan angka1: ');read(x);
writeln('masukkan angka2: ');read(y);
z:=x+y;
write('hasil dari ',x:4:2,'+ ',y:4:2,'= ',z:4:2);
end;
procedure kurang;
var
a,b,c:real;
begin
clrscr;
writeln('menu pengurangan');
writeln('masukkan angka1: ');read(a);
writeln('masukkan angka2: ');read(b);
c:=a-b;
write('hasil dari ',a:4:2,'- ',b:4:2,'= ',c:4:2);
end;
begin
writeln('anda ingin menu apa?');
writeln('1. pertambahan');
writeln('2. pengurangan');
writeln;
writeln('masukkan pilihan: ');read(d);
if d=1 then
begin
tambah;
end
else
if d=2 then
begin
kurang;
end
else
begin
clrscr;
write('maaf pilihan anda tidak terdaftar');
end;
end.