Программа

VAR x,y:real;     { Входные данные }
    Sum,Dif:real; { Вспомогательные переменные x+y, x-y }
    Z:real;       { Результат }
BEGIN
  WriteLn;              { Пропуск строки }
  Write('Введите x ');  { Вывод приглашения ввести x }
  ReadLn(x);            { Ввод x }
  Write('Введите y ');  { Вывод приглашения ввести y }
  ReadLn(y);            { Ввод y }

  if x>=y                   { Если x>y, }
    then begin                { то - }
           Sum:=x+y;            { вычисление суммы }
           Dif:=x-y;            { вычисление разности }
           if Sum>Dif           { если сумма больше разности, }
             then Z:=Sum          { то - определение Z по сумме }
             else Z:=Dif          { иначе - определение Z по разности }
         end
    else if x<y               { иначе - если x<y, }
           then Z:=x                    { то - определение Z по x }
           else Z:=y;                   { иначе - определение Z по y }

  WriteLn('Z=',Z)       { Вывод Z }
END.