Програма паскаль после начала экперимента прошло tчасов, m минут, k секунд . сколько секунд длится эксперимент

Program lab1; var     t,m,k: integer; begin     writeln('vvedite chasi');     readln(t);     writeln('vvedite minuti');     readln(m);     writeln('vvedite k');     readln(k); k: =t*3600+m*60+k; writeln('proshlo  minut: ',k); end.

#include < iostream> using namespace std; string evenorodd(int n) { if (n % 2 == 0) { return "чётное"; } else { return "нечётное"; } } string digitcount(int n) { if ( (int) n / 1000 > 0 ) { if (n > 9999){ return "n-значное"; } else { return "четырёхзначное"; } } else if ( (int) n % 1000 / 100 > 0 ) { return "трёхзначное"; } else if ( (int) n % 100 / 10 > 0 ) { return "двузначное"; } else { return "однозначное"; } } int main() { int n; cout < < "n = "; cin > > n; cout < < evenorodd(n) < < ' ' < < digitcount(n) < < ' ' < < "число" < < endl; return 0; }

Const     k = 13; var     a: array[1..k] of integer;     i,j: integer; begin {заполнение массива} write('исходный массив: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ')            end; writeln; {сортировка пузырьком} for i: = 1 to k do       for j: = 1 to k-1 do               if a[j]> a[j+1] then swap(a[j],a[j+1]); {вывод массива} write('отсортированный массив: '); for i: = 1 to k do       write(a[i],' ') end.