program Multiusos;

uses

crt;

var

opc:integer;

procedure Area_de_un_triangulo;

var

b,h,a:real;

const

x=2;

begin

clrscr;

writeln('cuanto mide la base');

readln(b);

writeln('la altura es');

readln(h);

a:=(b*h)/x;

writeln('el area es',a);

readln;

end;

procedure sumatoria_numeros_multiplos_de_5;

var

suma,contador,sumas:integer;

begin

clrscr;

suma:=45;

for contador:=0 to 10 do

begin

suma:=suma+5;

sumas:=suma+sumas;

writeln(suma);

end;

writeln('suma',sumas);

readln;

end;

procedure Area_de_un_cuadrado;

var

a,c:integer;

begin

clrscr;

writeln('teclea la medida de el lado');

readln(a);

c:=a*a;

writeln('el area es',c);

readln;

end;

procedure suma_de_2_numeros;

var

x,y,suma,z:integer;

begin

clrscr;

writeln('teclea el 1er numero');

readln(x);

writeln('teclea el 2do numero');

readln(y);

z:=x+y;

writeln('la suma es',z);

readln;

end;

procedure Mayor_de_3_numeros;

var

n1,n2,n3,mayor:integer;

begin

writeln('teclea 3 numeros enteros');

readln(n1,n2,n3);

if n1>n2 then

if n1>n3 then

mayor:=n1

else

mayor:=n3

else

if n2>n3 then

mayor:=n2

else

mayor:=n3;

writeln('el mayor es',mayor);

end;

procedure suma_2_num_mientras_el_num_sea_menor_de_20;

var

x,y,z:integer;

begin

clrscr;

writeln('teclea 1er numero');

readln(x);

writeln('teclea 2do numero');

readln(y);

z:=x+y;

if z<20 then

writeln('la suma es',z)

else

writeln('error')

end;

begin

while opc<7 do

begin

writeln ('mi nombre es: Carolina Flores Montoya, este programa');

writeln ('nos servira para realizar distintas actividades con  mayor');

writeln('facilidad, como areas de cuadrados y triangulos, sumas de 2');

writeln('numeros o mas y muchas cosas mas asi como tambien te muestro');

writeln('un menu que te aparecera al principio del programa en el cual');

writeln('podras elegir la accion que desees realizar');

writeln('1.-Area de un triangulo');

writeln('2.-sumatoria de numeros multiplos de 5');

writeln('3.-Area de un cuadrado');

writeln('4.-Suma de 2 numeros');

writeln('5.-Mayor de 3 numeros');

writeln('6.-suma de 2 num mientra el num sea menor de 20');

writeln('7.-salir');

writeln('8.-otro calculo');

writeln('oprime el numero de la opcion que deseas realizar');

readln(opc);

case opc of

1:Area_de_un_triangulo;

2:sumatoria_numeros_multiplos_de_5;

3:Area_de_un_cuadrado;

4:Suma_de_2_numeros;

5:Mayor_de_3_numeros;

6:Suma_2_num_mientras_el_num_sea_menor_de_20;

else

write('hasta luego');

end;

end;

readln;

end.