Программа

{ ЛИКИ
  Сложная обработка }
Program Denis_2;
Var A,B,C,U,X,Y,Z:real;      { Описание переменных }
Procedure Process(A,B,C:real; var X,Y,Z:real);
                                      { Процедура первичной обработки данных }
  procedure Sort(In1,In2:real; var Max,Min:real);
                  { Процедура выборки максимального и минимального элементов }
    begin
      if In1>In2 then begin Max:=In1; Min:=In2 end
                 else begin Max:=In2; Min:=In1 end
    end;
  Begin
    { Оператор поиска положительного, максимального и минимального элементов }
    if A>0
      then begin X:=A; Sort(B,C,Y,Z) end
      else if B>0
             then begin X:=B; Sort(A,C,Y,Z) end
             else begin X:=C; Sort(A,B,Y,Z) end;
    Z:=5*Z;   { Доопределение Z }
    Y:=Abs(Y) { Переопределение Y }
  End;
Function F(X,Y,Z:real):real;               { Функция основного вычисления }
  Begin
    if Abs(Y)<-Abs(X)+1 then F:=(X+1)*(Y-1)
                        else if Y<X-2 then F:=(Sqr(X)-5)/(Sqr(Y)+5)
                                      else F:=Z

  End;
BEGIN
  WriteLn;  { Пропуск строки }

  { Ввод данных: }
  Write('Введите A '); { вывод приглашения ввести переменную 'A' }
  ReadLn(A);           { ввод переменной 'A' }
  Write('Введите B '); { вывод приглашения ввести переменную 'B' }
  ReadLn(B);           { ввод переменной 'B' }
  Write('Введите C '); { вывод приглашения ввести переменную 'C' }
  ReadLn(C);           { ввод переменной 'C' }

  Process(A,B,C,X,Y,Z); { Первичная обработка данных }

  U:=F(X,Y,Z);        { Вычисление U }

  WriteLn; { Пропуск строки }

  { Вывод результатов: }
  WriteLn('A=',A);
  WriteLn('B=',B);
  WriteLn('C=',C);
  WriteLn('X=',X);
  WriteLn('Y=',Y);
  WriteLn('Z=',Z);
  WriteLn('U=',U);
END.