Написать программу которая переводит время заданное в часах минутах секундах в секунды. программа должна проверять корректность введенных значений и выдавать сообщение об ошибке если это не так.входные данные 3 числа. выходные данные ремя в секундах или сообщение об ошибке. секундомер введите через пробел время -> 0 5 35 результат : 335 -> 0 20 90 результат : ошибка

// pascalabc.net 3.3, сборка 1570 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(11,-29,150); a.println;   writeln('ср.арифм. положительных: ',a.where(x-> x> 0).average: 0: 3);   writeln('ср.арифм. отрицательных: ',a.where(x-> x< 0).average: 0: 3);   swap(a[1],a[6]);   writeln('результирующий массив'); a.println end. пример 91 109 113 119 17 95 41 131 -15 117 -14 ср.арифм. положительных: 92.556 ср.арифм. отрицательных: -14.500 результирующий массив 91 41 113 119 17 95 109 131 -15 117 -14

Var   a: array[1..1000]of integer;   i,n,k,c,q: integer;     begin       readln(n);       for i: =1 to n do         begin         readln(a[i]);           if (a[i] mod 10 = 4) then           begin             k: =a[i];             c: =0;             while k> 0 do               begin               c: =c + k mod 10;               k: = k div 10;               end;               if c mod 3 = 0 then               q: =q+1;               end;             end;           writeln(q);           end.