Programa de areas de Poligonos

program areas;
uses crt;
var opcion :char;
procedure circulo;
var r:integer;
    a:real;
begin
    clrscr;
    write('teclea el radio del circulo: ');
    readln(r);
    a:=3.1416*(r*r);
writeln ('el area del circulo es: ',a:5:2);
readln;
end;
 procedure cuad;
   var
      l1,l2:integer;
   var area:integer;
begin
   clrscr;
   write('dale valor a uno de los lados :  ');
   readln(l1);
   write('ahora a otro de los lados :  ');
   readln(l2);
   area:=l1*l2;
   writeln('el area del cuadrado es :  ',area );
   readln;
end;
procedure rec;
   var
      l1,l2:integer;
   var
      area :integer;
begin
    clrscr;
    write('escribe la medida del lado del rectangulo :  ');
    readln(l1);
    write('escribe la otra medida  :  ');
    readln(l2);
    area:=l1*l2;
    writeln('el area es :  ', area);
    readln;
end;
procedure tria;
     var
         base,altura:real;
     var
         area :real;
begin
     clrscr;
     write('ingresa la base  :   ');
     readln(base);
     write('ingresa la altura del triangulo :  ');
     readln(altura);
     area:=base*altura/2;
     write('el area es :  ' , area:5:2 );
     readln;
end;
begin
    repeat
    writeln('Programa de calculo de Areas');
    writeln('Elija una opci¢n:  ');
    writeln('1)circulo');
    writeln('2)cuadrado');
    writeln('3)rectangulo');
    writeln('4)triangulo');
    writeln('5)salir del programa');
    readln(opcion);
    case opcion of
    '1':circulo;
    '2':cuad;
    '3':rec;
    '4':tria;
    end;
    until opcion ='5';
end.