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.