ПОМОГИТЕ С ИНФОРМАТИКОЙ 9 КЛАСС!

ЗАДАНИЕ 1:

program Yuyman1;

label s;

var
i, input, sum : integer;
files : array[1..6] of integer;

const
MIN = 100;
MAX = 2000;

begin
writeln('Ограничение на размер файла от ', MIN, ' до ', MAX, ' байт.');
for i := 1 to 6 do begin
s:
write('Введите размер ', i, ' файла: ');
read(input);
// Проверка на недопустимое значение размера файла
if ((input < 100) or (input > 2000)) then begin
writeln('Недопустимое значение!');
// Вернуться на метку s для повторного ввода
goto s;
end
else begin
files[i] := input;
// Сумма размеров всех файлов увеличивается на размер текущего ввода
sum += input;
end;
end;
// Расчет и вывод среднего размера файла
writeln(#10, 'Средний размер файла: ', sum div 6);
end.

ЗАДАНИЕ 2:

program Yuyman2;

var
// i - итератор цикла
// sum - для подсчета размера всех элементов
i, sum : integer;
a : array[1..40] of integer;

begin
// Включение генератора псевдослучайных чисел
randomize;
writeln('Массив случайных чисел:');
// Перебор всех индексов массива
for i := 1 to 40 do begin
// Текущий элемент массива равен случайному числу от 0 до 20
a[i] := random(20+1);
// Вывод на экран текущего элемента массива
write(a[i]:3);
// Сумма всех элементов массива до текущего увеличивается на значение текущего элемента
sum += a[i];
end;
// Расчет и вывод среднего арифметического
writeln(#10, 'Среднее арифметическое элементов массива: ', sum div 40);
end.

на каком языке?

с=0
для х от 1 до 6
ввод р
с=с+р
кц
ср=с/6
вывод ср

с=0
к=0
для х от 1 до 40
а (х) =рандом (21)
если а (х) мод 2 =1 то с=с+а (х) к=к+1
кц
ср=с/к

тут явно больше одного урока, потому как можно дать ответ и на алгоритмическом языке