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

стало лучше?

раз принимается, то теснее хорошо)

1.var a, b: integer;beginreadln(a);b := a mod 10;a := a div 1000;a := a + b;end.2.var a: integer;beginreadln(a);a := (a mod 10)*1000 + (a div 10)*100 + (a div 100)*10 + (a div 1000)end.

Тут, потому что "Теснее отвечают максимальное число юзеров".

вопрос маленькой. а writeln тут можно вклинить? и если да, то как ...

В конце каждого: writeln('Разыскиваемое число = ', a);

И да, в последней формуле не хватает знака ";" в конце.

// 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 gt; 0 do       
begin               
b := b * 10 + input mod 10;               
input := input div 10;       
end;       
writeln('Перевернули цифру: ', b);                
end.