PROSEDUR+CASE OF

program dengan_procedure;
uses wincrt;

var a,b,c:integer;
pil:char;
procedure tambah;
begin
c:=a+b;
writeln ('hasil penjumlahan =',c);
end;
procedure kurang;
begin
c:=a-b;
writeln ('hsil penguarangan =',c);
end;


begin
write ('input nilai pertama =');readln (a);
write ('input nilai kedua   =');readln (b);
write ('input menu pilihan(+,-,)=');readln (pil);
writeln;
case pil of
'+':tambah;
'-':kurang;
end;
readln;
donewincrt;
end.