New 2 блок

1=========================================================================
program one;
var a,c,s,f:integer;
begin
{1. Дано n чисел. Вычислить произведение чисел, модуль которых находится в пределах от 10 до 100.}
s:=1;
writeln('задайте диапазон чисел: ');
readln(f);
writeln('введите ', f ,' чисел: ');
for c:=1 to f do
begin
readln(a);
if (a>9) and (a<101) then
s:=s*a;
end;
writeln('произведение чисел от 10 до 100');
writeln(s);
end.
2=========================================================================
program two;
var a,c,s,f:integer;
begin
{2. Дано n чисел. Вычислить количество четных чисел, заканчивающихся цифрой 4 или 8.}
s:=0;
writeln('задайте диапазон чисел: ');
readln(f);
writeln('введите ',f,' чисел: ');
for c:=1 to f do
begin
readln(a);
if (a mod 10=4) and (a mod 2=0) then
s:=s+1
else
if (a mod 10=8) and (a mod 2=0) then
s:=s+1;
end;
writeln('количество четных чисел заканчивающихся на 4 или 8:');
writeln(s);
end.
3=========================================================================
program three;
var a,c,s,f:integer;
begin
{3. Дано n чисел. Вычислить сумму модулей тех из них, что делятся на 10.}
s:=0;
writeln('задайте диапазон чисел: ');
readln(f);
writeln('введите ',f,' чисел: ');
for c:=1 to f do
begin
readln(a);
if (a mod 10=0) then
s:=s+a;
end;
writeln('сумма модулей делящиеся на 10:');
writeln(s);
end.
4=========================================================================
program four;
var d,i,s,summ:integer;
sred:real;
begin
{4. Найти среднее расстояние, проходимое пассажирским поездом за день, если в пути он был d дней и каждый день он проходил разное количество километров s.}

writeln('Введите количество дней');
readln(d);
summ:=0;
for i:=1 to d do
begin
writeln('Введите путь, пройденный за ',d,' день');
readln(s);
summ:=summ+s;
end;
sred:=summ/d;
writeln('В среднем поезд проходил ',sred:5:2,' километров в день');

end.
5=========================================================================
program five;
var n,s,i:integer;
begin
{Найти среднюю заработную плату за последнее n месяцев, если в каждой из них работник получал по z рублей.}
writeln('Введите зарплату за каждый месяц: ');
for i:=1 to 12 do
begin
write(i,' месяц ');
readln(n);
s:=s+n;
end;
writeln('Средняя зарплата за год = ', s/12:2:2);
end.