Модернизируйте функцию так, чтобы она выводила правильные спряжения слов для определенного количества часов минут и секунд (постарайтесь предусмотреть все варианты) Пример того, как может выглядеть решение: прикреплено фото

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

readln;
end.

Чтобы выражение было истинным, необходимо, чтобы
(х > 4) и ((х < 10) или (х < 13)) были истинными одновременно.
Чтобы ((х < 10) или (х < 13)) было истинными, необходимо, чтобы либо (х < 10), либо (х < 13) были истинными, либо оба одновременно. =>
13>x>4 => Всего 8 чисел (12, 11, 10, 9, 8, 7, 6, 5)

Можно проверить:
(12 > 4) и ((12 < 10) или (12 < 13)) =1 и (0 или 1)=1и1=1
(11 > 4) и ((11 < 10) или (11 < 13)) =1 и (0 или 1)=1и1=1
(10 > 4) и ((10 < 10) или (10 < 13)) =1 и (0 или 1)=1и1=1
(9 > 4) и ((9 < 10) или (9 < 13)) =1 и (1 или 1)=1и1=1
(8 > 4) и ((8 < 10) или (8 < 13)) =1 и (1 или 1)=1и1=1
(7 > 4) и ((7 < 10) или (7 < 13)) =1 и (1 или 1)=1и1=1
(6 > 4) и ((6< 10) или (6 < 13)) =1 и (1 или 1)=1и1=1
(5 > 4) и ((5 < 10) или (5 < 13)) =1 и (1 или 1)=1и1=1

ответ: 8