Как решить эту задачу на Паскале?

)Соберите данные из текста, и создайте диаграмму или постер.

САМ ТЕКСТ↓↓↓↓↓

«Ұлы Жібек жолы» — Қазақстан жері арқылы өткен сауда-саттық жолы.

Қазақстанның ортағасырлық қалаВЫФФФларында жүргізілген қазба жұмыстары кезінде археологтер

Қытай мен Византия, Иран мен Үндістан елдерінде соғылған теңгелер мен ділдаларды

тапқан. Алматы қаласының маңындағы Талғар қаласының орнын қазған кезде Иранда

жаЗалған қола табақ, қытай фарфоры мен жапонның фаянс тостағанының сынығы және т.б.

бұйымдар табылған.

«Ұлы Жібек жолының» бойымен саудагерлер Ферғананың әйгілі тұлпарларын, түйе,

пілдермен қатар барқыт, жібек, мақпал, торғын маталарды, киім-кешекті және т. б. бағалы

тауарларды сату үшін алып өткен. Осы жол арқылы қант, жүзім, шабдалы, қауын сияқты

жеміс-жидек те саудаланған.

Объяснение:

На Паскале:

program prog;

var

   a:array[1..20] of integer = (1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6);

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do if a[i]>3 then c:=c+1;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6]

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')

Если нужно вводить температуру с клавиатуры:

На Паскале:

program prog;

var

   a:array[1..20] of integer;

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do begin

       write('Введите температуру ', i, '-го дня: '); readln(a[i]);

       if a[i]>3 then c:=c+1;

   end;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [int(input(f'Введите температуру {i+1}-го дня: ')) for i in range(20)]

print(a)

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')