Question

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

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

Answer 1

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.

Answer 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