Cálular las horas trabajadas y costo de la misma

program repita;
uses wincrt;
var
i,n,horas,trabajadores,costo:integer;
acu,pro:integer;
begin
acu:=0;
writeln('trabajadores');
readln(n);
for i:= 1 to n do
begin
writeln('ingrese horas del trabajador',i);
readln(trabajadores);
acu:=acu+trabajadores;
end;
writeln('la sumatoria es',acu);
pro:=acu*n;
writeln('el total de horas trabajadas',pro);
begin
writeln('ingrese costo');
readln(costo);
acu:=acu*costo;
end;
writeln('total de costo es',acu);
pro:=acu*n;
end.

TALLER

--Promedio de edades--

program repita;
uses wincrt;
var
i,n,edad,alumnos:integer;
acu,pro:real;
begin
acu:=0;
writeln('cuantas edades seran procesadas');
readln(n);
for i:= 1 to n do
begin
writeln('ingrese la edad',i);
readln(edad);
acu:=acu+edad;
end;
writeln('la sumatoria es',acu:5:2);
pro:=acu/n;
writeln('el promedio es',pro:5:2)
end.

--Lista de números impares y pares del 1 al 20--

program nombre;
uses wincrt;
var
i,j:integer;
begin
for j:= 1 to 20 do
if(j mod 2)=1 then
writeln('es impar',j);
for i:= 1 to 20 do
if (i mod 2)=0 then
writeln('es par',i);
end.

Identificar si es mayor a 18 años (EXAMEN)

program nombre;
uses wincrt;
var
edad:real;
begin
writeln('ingrese edad');
readln(edad);
if (edad>18) then
writeln('edad es mayor');
if (edad<18) then
writeln('edad es menor');
end.

Identificar la nota mas alta (Examen)

progam nomre;
uses wincrt;
var
nota,n1, n2, n3, n4:real;
begin
writeln('ingrese n1');
readln(n1);
writeln('ingrese n2');
readln(n2);
writeln('ingrese n3');
readln(n3);
writeln('ingrese n4');
readln(n4);
if (n1>n2) and (n1>n3) and (n1>n4) then
writeln('la n1 es mayor');
if (n2>n1) and (n2>n3) and (n2>n4) then
writeln('la n2 es mayor');
if (n3>n1) and (n3>n2) and (n3>n4) then
writeln('la n3 es mayor');
if (n4>n1) and (n4>n2) and (n4>n3) then
writeln('la n1 es mayor');
end.

********OTRO MODO DE REALIZAR UN MENU********

PROGRAM NOMBRE;
USES WINCRT;
VAR i,op:Integer;
BEGIN
Writeln('**Menu***');
Writeln('');
Writeln('Pulse 1 para los Numero Ascendente');
Writeln('Pulse 2 para los Numero Descendente');
Writeln('Pulse 3 para los Numero Pares');
Writeln('Pulse 4 para los Numero Impares');
Readln(op);
If op= 1 then
Begin
Writeln('Numero Ascendente');
FOR i:=1 TO 10 DO
Writeln(i);
End;
If op= 2 then
Begin
Writeln('Numero Pares Descendente');
FOR i:=10 DOWNTO 1 DO
Writeln(i);
End;
If op= 3 then
Begin
Writeln('Numero Pares');
FOR i:=10 DOWNTO 1 DO
IF (i mod 2)=1 then
Writeln(i);
End;
If op= 4 then
Begin
Writeln('Numero Impares');
FOR i:=10 DOWNTO 1 DO
IF ((i mod 2)=1) THEN
Writeln(i);
End;
END.

*******MENU********

program nombre;
uses wincrt;
var
i,op,n:integer;
begin
writeln('**********MENU**********');
writeln('');
writeln('ingrese 1 para ordenar ascendente');
writeln('ingrese 2 para ordenar descendente');
writeln('ingrese 3 para indicar los numeros pares');
writeln('ingrese 4 para indicar los numeros impares');
readln(op);
if op=1 then
begin
for i:=1 to 20 do
writeln('el numero es:',i);
end
else
if op=2 then
begin
for i:= 20 downto 1 do
writeln('el numero es',i);
end
else
if op=3 then
begin
writeln('ingrese numeros pares');
readln(n);
for i:= 1 to n do
if (i mod 2)=0 then
writeln('es par',i);
if(i mod 2)=1 then
writeln('es impar',i);
end
else
if op=4 then
begin
writeln('ingrese numeros impares');
readln(n);
for i:= 1 to n do
if(i mod 2)=1 then
writeln('es impar',i);
end
else
end.

Números Pares e Impares

program numeros_par;
uses wincrt;
var
i:integer;
begin
writeln('ingresa el valor a consultar');
if (i mod 2)=0 then
writeln('es par');
if (i mod 1)=1 then
writeln('es impar');
end.