Можете, ,сделать на 2, 3 и 4 . заранее ​

Объяснение:

Последовательность действий:

Перевези козу (так как с тигром оставлять нельзя он ее съест, а козу с морковкой нельзя она ее съест)

Переправься обратно один.

Перевези тигра (на том берегу останется пока одна морковка)

Перевези козу (он ее забрал на тот остров, чтобы тигр не съел)

Перевези морковку (козу оставляет, потому что там тигр, да еще и морковка)

Переправься обратно один.

Перевези козу (он ее забирает)

Смысл задачи был, перевезти всех на противоположный берег, при условии что:

В лодке могут быть двое

Тигра с козой оставлять нельзя

Козу морковкой оставлять нельзя

1. Вот так это можно написать коротко, быстро и понятно, если разбираться в современном Паскале.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function SoD(Self:integer):integer; extensionmethod;
begin
  while Self>0 do (Result,Self):=(Result+Self mod 10,Self div 10);
end;

function Diff(Self:array of integer):integer; extensionmethod;
begin
  Result:=Self.Max.SoD-Self.Min.SoD
end;

begin
  Writeln(ReadArrInteger('Три пятизначных числа:',3).Diff)
end.

Пример
Три пятизначных числа: 12345 23456 34567
10

2. А вот так примерно учат у нас в школах...

program School;
var
  i,n,max,min,d:integer;
begin
  Write('Введите 1-е пятизначное число: '); Read(n);
  max:=n;
  min:=n;
  for i:=2 to 3 do begin
    Write('Введите ',i,'-е пятизначное число: '); Read(n);
    if n<min then min:=n
    else
      if n>max then max:=n;
    end;
  d:=0;
  while max>0 do begin
    d:=d+max mod 10;
    max:=max div 10
    end;
  while min>0 do begin
    d:=d-min mod 10;
    min:=min div 10
    end;
  Writeln(d)
end.

Пример
Введите 1-е пятизначное число: 12345
Введите 2-е пятизначное число: 23456
Введите 3-е пятизначное число: 34567
10