Люди, нужна ваша , используя программу pascal. незнающих пройти мимо. следует составить 2 программы согласно 2 ниже : ) (ввод с клавиатуры) 1) найдите сумму первой и последней цифр четырехзначного числа. 2) записать четырехзначное число в обратном порядке.

// 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

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.