Ввести с клавиатуры число a. если это число не больше, чем 18, то вывести на экран сообщение: "число не больше 18

Var a: real; begin   writeln('введите a: ');   readln(a);   if a< =18 then   writeln('число не больше 18') end.

Самый простой способ - это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. далее собрать нужную строку из получившихся значений, преобразовывая в строки. учитывая длины получившихся подстрок где надо добавляем 0 слева от начала подстроки. n = int(input('число секунд с начала суток: '))h = n // 3600n = n % 3600m = n // 60s = n % 60sh = str(h)sm = str(m)if len(sm)< 2:     sm = "0"+smss = str(s)if len(ss)< 2:     ss = "0"+ssprint(sh,': ',sm,': ',ss)тест №1число секунд с начала суток: 72002 : 00 : 00тест №2число секунд с начала суток: 7520120 : 53 : 21

Const   a: array of integer = (7, 3, 10, 9, 8, 4, 1, 6, 2, 5); begin   var n : = 0;   var found : = false;   repeat       found : = false;       for var i : = low(a) to high(a) - 1 do           if a[i] > a[i + 1] then begin               swap(a[i], a[i + 1]);               found : = true;               n : = n + 1;           end;   until not found;     writeln('swaps = ', n); end. ответ swaps = 30