Программирование в среде паскаль. Сделайте пожалуйста 2.19,2.14 и 4.23

var
  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.


var
  num: integer;
begin
  readln(num); //Число
  writeln(num mod 100 * 10 + num div 100) //Берём остаток от деления на 100, т. е. последние две цифры, умножаем на 10 и прибавляем первую цифру
end.

var
  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.