Uses WinCrt;
Var
circulo, cuadrado, triangulo, op, radio, area, lado, ac, at, a, l : real;
begin
WriteLn ( 'Menu de Geometria' );
WriteLn ( '1.- Area de un Circulo' );
WriteLn ( '2.- Area de un Cuadrado' );
WriteLn ( '3.- Area de un Triangulo' );
WriteLn ( 'Ingrese una opcion' );
ReadLn (op);
If op=1 then
Begin
WriteLn ( 'Calcularemos el Area de un Circulo' );
WriteLn ( 'Ingrese el radio' );
ReadLn (radio);
area:= 3.1416*(radio*radio);
WriteLn ( 'El resultado es: ', area:3:3);
end;
If op=2 then
Begin
WriteLn ( 'Calcularemos el Area de un Cuadrado' );
WriteLn ( 'Ingrese el lado' );
ReadLn (lado);
ac:= (lado*lado);
WriteLn ( 'El area del Cuadrado es: ', ac:3:3);
end;
If op=3 then
Begin
WriteLn ( 'Calcularemos el Area de un Triangulo' );
WriteLn ( 'Ingrese el lado' );
ReadLn (l);
WriteLn ( 'Ingrese la altura' );
ReadLn (a);
at:= (l*a)/2;
WriteLn ( 'El area del Triangulo es: ', at:3:3);
end;
end.
