Помогите с информатикой, пожалуйста

Задание 4:
const n = 10;
type Mas = array [1..n] of integer;
var T, C, S : Mas;
begin
WriteLn (' Количество товара:');
for var i := 1 to n do
begin
T[i] := 1 + Random (90); Write (T[i]:8);
end; WriteLn();
WriteLn (' Цена единицы товара:');
for var i := 1 to n do
begin
C[i] := 100 + Random (10000); Write (C[i]:8);
S[i] := T[i]*C[i];
end; WriteLn;
WriteLn (' Стоимость товара:');
for var i := 1 to n do Write (S[i]:8);
end.

Если я правильно понял, то ниже на картинке - как раз нужные программы (задания) предоставлены:Ибо иначе я не знаю, по каким алгоритмам, представленными в каком-то параграфе какого-то учебника выполнять 5-ое задание.

Если что - пишите в комментариях, а пока вот программы (обозначу как P5_3 (к 5-ому заданию на основе 3-его) и P5_4 (к 5-ому заданию на основе 4-го).

Итак:

P5_3 1-ый вариант (температура вводится вручную с клавиатуры):

 Program P5_3; 

uses crt; 

const n=12; 

type sr_year=array [1..n] of real; 

var i: integer; 

    sm: sr_year; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения средних температур за каждый месяц года (1-ый месяц - январь, 12-ый - декабрь). Вводите только числа. После ввода каждого значения нажимайте клавишу Enter.'); 

for i:=1 to 12 do begin 

    write ('Введите среднее значение температуры за ', i, '-й месяц года: '); 

    readln (sm[i]); 

    end; 

writeln ('Средняя температура зимних месяцев: ', (sm[1]+sm[2]+sm[12])/3 :0:2); 

writeln ('Средняя температура весенних месяцев: ', (sm[3]+sm[4]+sm[5])/3 :0:2); 

writeln ('Средняя температура летних месяцев: ', (sm[6]+sm[7]+sm[8])/3 :0:2); 

writeln ('Средняя температура осенних месяцев: ', (sm[9]+sm[10]+sm[11])/3 :0:2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

P5_3 2-ой вариант (температура генерируется автоматически):

 Program P5_3; 

uses crt; 

const n=12; 

type sr_year=array [1..n] of integer; 

var i: integer; 

    sm: sr_year; 

begin 

clrscr; 

for i:=1 to 2 do sm[i]:=random (1)-30; 

for i:=3 to 5 do sm[i]:=random (15); 

for i:=6 to 8 do sm[i]:=random (19)+12; 

for i:=9 to 11 do sm[i]:=random (15); 

sm[12]:=random (1)-30; 

writeln ('writeln ('За год средние месячные температуры (где 1-ый месяц - январь, а 12-ый - декабрь) составили:');'); 

for i:=1 to 12 do writeln ('За ' i, '-й месяц: ', sm[i]); 

writeln ('Средняя температура зимних месяцев: ', (sm[1]+sm[2]+sm[12])/3 :0:2);  

writeln ('Средняя температура весенних месяцев: ', (sm[3]+sm[4]+sm[5])/3 :0:2);  

writeln ('Средняя температура летних месяцев: ', (sm[6]+sm[7]+sm[8])/3 :0:2);  

writeln ('Средняя температура осенних месяцев: ', (sm[9]+sm[10]+sm[11])/3 :0:2);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Ну и P5_4... Впрочем, Вам уже написАл Владимир Втюрин, так что, пожалуй, не буду копировать...