Программы написаны на языке PascalABC.NET v3.3 (сборка 1549)2.19var num, a, b, c, d: integer;begin readln(num); //Число a := num div 1000; //Первая цифра b := num div 100 mod 10; //Вторая цифра c := num div 10 mod 10; //Третья цифра d := num mod 10; //Четвёртая цифра writeln(a + b + c + d); //Сумма цифр writeln(a * b * c * d) //Произведение цифрend.2.14var num: integer;begin readln(num); //Число writeln(num mod 100 * 10 + num div 100) //Берём остаток от деления на 100, т. е. последние две цифры, умножаем на 10 и прибавляем первую цифруend.4.23var num: integer;begin readln(num); //Число if num div 10 > num mod 10 then writeln('Первая цифра больше') else if num div 10 < num mod 10 then writeln('Вторая цифра больше') else writeln('Цифры одинаковы')end.