Очень по информатике. Тема програмирование алгоритма если что

Через Case :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.

Через if :

Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.

a = int(input('Введите количество друзей:')) #вводим количетсво друзей

name = [] # создаем пустой список

age = 0  

for i in range(a):  # проходим по колисчетсву друзей

   q = input('Введите имя и возраст друга через пробел:').split()  # вводим имя и возраст и розбиваем их отдельно

   name.append(q[0])  # добавляем имя в список

   age = age + int(q[1])  # сумируем весь возраст

age = age / a  # находим средний возраст

if age<10:   # если меньше 10 то выводим возраст

   print(age)

elif age>10:   # если больше 10

   print(age)   #выводим возраст

   for b in name:  # обходим список с именами

       print(b)   # выводим имя

Объяснение: