PROGRAMACIÓN PASCAL

PROGRAM Menu(input,output);

VAR 

opcion:integer;
altura,base,superficie,perimetro:integer;
diagonal:real;    
BEGIN

 writeln('Introduce altura de su rectangulo');
readln(altura);
writeln('Introduce Base del rectángulo');
readln(base);
writeln;
superficie:=base*altura;
perimetro:=base*2+altura*2;
diagonal:=sqrt(base pow 2 + altura pow 2);

REPEAT

writeln('0. Salir');
writeln('1. Calcular la superficie');
writeln('2. Calcular perimetro');
writeln('3. Calcular Diagonal');
writeln;

readln(opcion);

CASE opcion OF

0: halt;
1: writeln('La superficie es: ',superficie);
2: writeln('El perimetro es: ',perimetro);
3: writeln('La diagonal es: ',diagonal:0:2);
otherwise('Opcion incorrecta');

END;

UNTIL opcion=0;

END.