Programa para Operaciones Basicas

program operaciones;
uses crt;
var op:char;
procedure suma;
    var
       a,b,c: integer;
begin
     clrscr;
      textmode(lo(lastmode)+font8x8);
      textcolor(white-red);
     writeln('Para sumar');
     write('teclea un numero : ');
     readln(a);
     write('teclea otro numero : ');
     readln(b);
     c:=a+b;
     writeln('la suma es :  '  ,c );
  readln;
end;
procedure resta ;
var
   a,b,c :integer;
begin
   clrscr;
    textmode(lo(lastmode)+font8x8);
      textcolor(red);
   writeln('Para restar');
   write('teclea un n£mero : ');
   readln(a);
   write('teclea otro n£mero : ');
   readln(b);
   c:=a-b;
   writeln('el resultado es : ',c);
   readln;
end;
procedure multi;
   var
      a,b,c :integer;
begin
   clrscr;
    textmode(lo(lastmode)+font8x8);
      textcolor(blue);
   writeln('Para multiplicar');
   write('ingresa un n£mero : ');
   readln(a);
   write('ingresa otro n£mero : ');
   readln(b);
   c:=a*b;
   writeln('el resultado es :  ',c);
   readln;
end;
procedure divi;
     var
         a,b:integer;
     var
        resultado:real;
begin
     clrscr;
      textmode(lo(lastmode)+font8x8);
      textcolor(brown);
     writeln('Para dividir');
     write('teclea el dividendo :  ');
     readln(a);
     write('ingresa el divisor  :  ');
     readln(b);
     resultado:=a/b;
     writeln('el resultado es :  ',resultado:5:2);
     readln;
end;
begin
     repeat
      textmode(lo(lastmode)+font8x8);
      textcolor(black);
      textbackground(white);
      writeln('Programa de Operaciones Basicas ');
      writeln('Elija una opcion:  ');
     writeln('1)suma');
     writeln('2)resta');
     writeln('3)multiplicaci•n');
     writeln('4)divisi•n');
     writeln('5)terminar programa');
     readln(op);
     case op of
     '1':suma;
     '2':resta;
     '3':multi;
     '4':divi;
     end;
     until op ='5';
end.