Seleccionar entrada por tipo de sexo...

program nombre;
uses wincrt;
var
sexo:string;
begin
writeln('ingrse sexo');
readln(sexo);
if sexo= 'f' then
writeln('pase mi amor vamos al hotel');
if sexo= 'm' then
writeln('full vaya para otra dico pocoloco');
end.

Calcular el sueldo

program nombre;
uses wincrt;
var
sueldo, sueldo_nuevo:real;
begin
writeln('ingrse sueldo');
readln(sueldo);
if sueldo<2070 then
sueldo_nuevo:=(sueldo*0.30)+sueldo;
writeln('su sueldo nuevo sera' ,sueldo_nuevo:5:2);
if sueldo>2070 then
sueldo_nuevo:=(sueldo*0.20)+sueldo;
writeln('su sueldo nuevo sera' ,sueldo_nuevo:5:2);
end.

Calcular el Indice de Masa Corporal

program nombre;
uses wincrt;
var
imc, peso, altura:real;
begin
writeln('ingrese peso');
readln(peso);
writeln('ingrese altura');
readln(altura);
imc:= peso/(altura*altura);
writeln('resultado',imc:5:2);
if imc<23 then
writeln('delgado')
else
if(imc>23)and (imc<25) then
writeln('normal');
if(imc>25) and (imc<28) then
writeln('obeso');
if imc>28 then
writeln('sobrepeso');
end.

Calcular quien es mayor-menor...

program nombre;
uses wincrt;
var
jose, marcos, luis:integer;
begin
writeln('ingrese la edad de jose');
readln(jose);
writeln('ingrese la edad de marcos');
readln(marcos);
writeln('ingrese la edad de luis');
readln(luis);
if(jose>marcos) and (jose>luis) then
writeln('el mayor es jose');
if(marcos>jose)and (marcos>luis) then
writeln('el mayor es marcos');
if(luis>jose) and (luis>marcos) then
writeln('el mayor es luis');
end.

Calcular Área según selección: Triángulo, Circulo, Cuadrado

program nombre;
uses wincrt;
var
op:integer;
begin
writeln('***Menú***');
writeln('');
writeln('pulse 1 para area triangulo');
writeln('pulse 2 para area cuadrado');
writeln('pulse 3 para area circulo');
readln (op);
if op=1 then
writeln('area triangulo')
else
if op=2 then
writeln('area cuadrado')
else
if op=3 then
writeln('area circulo')
else
writeln('opsion no valida');
end.

Aprobar y Reprobar: Notas

program nombre;
uses wincrt;
var
nota:integer;
begin
writeln('ingrese nota');
readln (nota);
if(nota >=30)then
writeln('aprobado')
else
writeln('reprobado');
end.

Conversión de medidad con dos decimales

program nombre;
uses wincrt;
var
metros,kilometros,millas,yardas:real;
begin
writeln('ingrese metros');
readln(metros);
metros:=1/1000;
writeln('el resultado',kilometros:5:2);
writeln('ingrese metros');
readln(metros);
metros:=2/1000;
writeln('el resultado',millas:5:2);
writeln('ingrese metros');
readln(metros);
metros:=3/1000;
writeln('el resultado',yardas:5:2);
end.

Calcular nota final

program nombre;
uses wincrt;
var
NF,n1,n2,n3,n4,final:real;
begin
writeln('ingrese n1');
readln(n1);
writeln('ingrese n2');
readln(n2);
writeln('ingrese n3');
readln(n3);
writeln('ingrese n4');
readln(n4);
NF:=(n1+n2+n3+n4)/4;
final:=(NF*20)/200;
writeln('el resultado es',NF:5:2);
writeln('el resultado final',final:5:2);
end.

Área de un cuadrado

program nombre;
uses wincrt;
var
aCuadrado, l:integer;
begin
writeln('ingrese l');
readln(l);
aCuadrado:=(l*l);
writeln('el area es',aCuadrado);
end.

Calcular el área del circulo

program nombre;
uses wincrt;
var
AC,r:real;
begin
writeln('ingrese r');
readln(r);
AC:= 3.1416*(r*r);
writeln('el area es',AC:5:2);
end.

Calcular el area de una triángulo

program nombre;
uses wincrt;
var
AT,b,h:real;
begin
writeln('ingrese b');
readln(b);
writeln('ingrese h');
readln(h);
AT:=(b*h)/2;
writeln('resultado',AT:5:2);
end.

Conversiones de medidas

program nombre;
uses wincrt;
var
metros,kilometros,millas,yardas:real;
begin
writeln('ingrese metros');
readln(metros);
kilometros:=metros/1000;
writeln('el resultado',kilometros);
writeln('ingrese metros');
readln(metros);
millas:=metros*0.00062137;
writeln('el resultado',millas);
writeln('ingrese metros');
readln(metros);
yardas:=metros*1.0936;
writeln('el resultado',yardas);
end.

Calcular Áreas

program nombre;
uses wincrt;
var
op,ac,r,at,b,h,aCuadrado,l:real;
begin
writeln('***Menú***');
writeln('');
writeln('pulse 1 para area triangulo');
writeln('pulse 2 para area cuadrado');
writeln('pulse 3 para area circulo');
readln (op);
if op=1 then
begin
writeln('ingrese b');
readln(b);
writeln('ingrese h');
readln(h);
at:=(b*h)/2;
writeln('resultado',AT:5:2);
end
else
if op=2 then
begin
writeln('ingrese l');
readln(l);
aCuadrado:=(l*l);
writeln('el area es',aCuadrado:5:2);
end
else
if op=3 then
begin
writeln('ingrese r');
readln(r);
ac:=3.1416*(r*r);
writeln('resultado', ac:5:2);
end
else
writeln('opsion no valida');
end.