Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — сумму чисел, оканчивающихся на 4.
Входные данные: 3; 14; 25; 24
Выходные данные: 38

1. Товарняк заезжает жопой в тупик, оставляет там 4 вагона и проезжает вперед по главной ветке.
2. Пассажирский проезжает тупик, затем сдает назад в тупик и забирает эти 4 вагона, затем проезжает вперед и сдает назад на главную ветку, где отцепляет 4 товарных вагона.
3. Пункты 1 и 2 повторяются еще два раза и позади пассажирского поезда окажется 12 вагонов товарняка.
4. Товарняк с оставшимися 3 вагонами сдает назад в тупик и пассажирский спокойно проезжает по своим делам. Миссия выполнена - пассажирский пропущен.
5. Товарняк проезжает вперед, затем сдает назад по главной ветке и забирает свои 12 вагонов.

1 задача.
var a, b, c: integer;
begin
  write('Введите через пробел три числа: ');
  readln(a, b, c);
  if (a > b) then
    if (b > c) then
      write('Сумма двух наибольших чисел: ', a + b)
    else
      write('Сумма двух наибольших чисел: ', a + c)
  else
    if (c > a) then 
      write('Сумма двух наибольших чисел: ', c + b)
    else
      write('Сумма двух наибольших чисел: ', b + a)
end.

2 задача.
var x, f: real;
begin
  write('Введите значение x: ');
  readln(x);
  if (x > 0) then
    f := (2 - x) / (x * x)
  else
    f := 6 - (x * x * x);
  writeln('Значение функции при данном x: ', f)
end.

3 задача.
var a, b: integer;
  write('Введите через пробел два числа: ');
  readln(a, b);
  writeln('Сумма чисел: ', a + b);
  writeln('Разность чисел: ', a - b);
  writeln('Произведение чисел: ', a * b)
end.