Напишите программу к задаче в Pascal abc. Необходимо ввести три целых числа и определить, какое из них

и что сложного ?

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
int1,int2,int3: Integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
{ ---}
Write('One:');
ReadLn(int1);
{ ---}

{ ---}
Write('Two:');
ReadLn(int2);
{ ---}

{ ---}
Write('Three:');
ReadLn(int3);
{ ---}
if (int1 < int2) and (int1 < int3) then
begin
Write('Minimum: ' + IntToStr(int1));
end
else
begin
if (int2 < int1) and (int2 < int3) then
begin
Write('Minimum: ' + IntToStr(int2));
end
else
begin
if (int3 < int2) and (int3 < int1) then
begin
Write('Minimum: ' + IntToStr(int3));
end;
end;
end;
Readln;
end.

С какой стати мы должны её писать? Задали её тебе! Даже "пожалуйста" не увидел! Конкретные вопросы задавай.
PS: модераторы, можете, конечно, удалить мой ответ. НО! Смотрите на его текст. Даже просьбы нет. Сделайте и точка. Никто никому тут ничем не обязан и это не противоречит правилам.

Там взяли мою идею:
uses
SysUtils;

var
int1,int2,int3: Integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
{ ---}
Write('One:');
ReadLn(int1);
{ ---}

{ ---}
Write('Two:');
ReadLn(int2);
{ ---}

{ ---}
Write('Three:');
ReadLn(int3);
{ ---}
if (int1 < int2) and (int1 < int3) then
begin
Write('Minimum: ' + IntToStr(int1));
end
else
begin
if (int2 < int1) and (int2 < int3) then
begin
Write('Minimum: ' + IntToStr(int2));
end
else
begin
if (int3 < int2) and (int3 < int1) then
begin
Write('Minimum: ' + IntToStr(int3));
end;
end;
end;
Readln;
end.