Люди, нужна ваша помощь, используя программу Pascal. Незнающих прошу пройти мимо. Следует составить 2 программы согласно 2 заданиям ниже :)
(ввод с клавиатуры)

1) Найдите сумму первой и последней цифр четырехзначного числа.
2) Записать четырехзначное число в обратном порядке.

uses crt;var input:integer;begin        readln(input);        var a := input mod 10;        var b := input div 10;        b := b div 10;        b := b div 10;        writeln('Сумма первой и последней цифры: ', a + b);        b := 0;        while input > 0 do        begin               b := b * 10 + input mod 10;               input := input div 10;       end;        writeln('Перевернули цифру: ', b);                end.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Введите четырехзначное число');  Writeln('Сумма первой и последней цифры равна ',n div 1000+n mod 10);  Writeln('Реверс числа: ',n.ToString.Inverse)end.ПримерВведите четырехзначное число 5719Сумма первой и последней цифры равна 14Реверс числа: 9175