Program		Examen (input,output);
  (*Este programa pide y calcula la superficie, perímetro y diagonal de un rectángulo.
	Autor: Brais Pérez Castro
	Fecha: 25/10/2011
	Versión: 1.0*)

VAR

	base: REAL;
	altura: REAL;
	superficie: REAL;
	perimetro: REAL;
	diagonal: REAL;
	opcion: INTEGER;

BEGIN

  (*Pido datos*)
	write ('Introduzca la base del rectángulo: ');
	readln (base);
	write ('Introduzca la altura del rectangulo: ');
	readln (altura);

  (*Hago cálculos*)
	superficie:=(base*altura);
	perimetro:=((base*2)+(altura*2));
	diagonal:=(Sqrt((base*base)+(altura*altura)));

  opcion:=7;

  (*Programa*)
	WHILE (opcion<>0) DO
		BEGIN
			IF ((opcion<>0) and (opcion<>1) and (opcion<>2) and (opcion<>3)) THEN BEGIN
				writeln ('Escriba una opción válida.');
				writeln;
				writeln ('0.- SALIR.');
				writeln ('1.- CALCULAR LA SUPERFICIE.');
				writeln ('2.- CALCULAR EL PERIMETRO.');
				writeln ('3.- CALCULAR LA DIAGONAL.');
				writeln;
				write ('Elija el número de la opción que desea: ');
				readln (opcion); END
			ELSE
				IF ((opcion=1) or (opcion=2) or (opcion=3)) THEN BEGIN
					CASE opcion OF
					1: writeln ('La superficie es: ',superficie:3:2);
					2: writeln ('El perímetro es: ',perimetro:3:2);
					3: writeln ('La diagona es: ',diagonal:3:2);
					END
				ELSE IF (opcion<>0) THEN BEGIN
					writln('Escribe una opcion correcta')
				END;
		END;
	writeln ('Usted ha salido del programa.');
END.