Составить в Паскале программу вычесления значения функции y=1×2×3×...×N для N=20

program fact20;

const

n=20;

var

i:byte;

f:int64;

begin

f:=1;

writeln('Множитель Произведение');

for i:=1 to n do

begin

f:=f*i;

writeln(i:5,' ',f:20);

end;

write('Итог 》 ',f);

end.

Три медведя

В домике этом жили три медведя. Один медведь был отец, звали его

Михаил Иванович. Он был большой и лохматый. Другой была медведица.

Она была поменьше, и звали ее Настасья Петровна. Третий был маленький

медвежонок, и звали его Мишутка. Медведей не было дома, они ушли

гулять по лесу.

В домике было две комнаты: одна - столовая, другая - спальня.

Девочка вошла в столовую и увидела на столе три чашки с похлебкой.

Первая чашка, очень большая, была Михаиле Ивановича. Вторая чашка,

поменьше, была Настасьи Петровнина. Третья, синенькая чашечка, была

Мишуткина. Подле каждой чашки лежала ложка: большая, средняя и

маленькая...

Не очень уверен в правильности данного решения, потестил немного на разных вариантах - вроде работает. Но ощущение, что какой-то он корявый...

n = int(input('Введите количество учеников: '))

a = [list(map(int, input(f'Введите 1<=Xi и Yi<=100 через пробел для {i+1}-го ученика: ').split())) for i in range(n)]

print(a)

i = 0

summ = 0

while i <= len(a)-1:

   if i < len(a)-2:

       if a[i][1] < a[i+1][1]:

           summ += a[i][1]

           i += 2

       else:

           summ += a[i][0]

           i += 1

   elif i == len(a)-2:

       summ += a[i][1]

       i += 2

   else:

       summ += a[i][0]

       i += 1

print(summ)