помогите по решению задачи

[Irok]

Привет. Помогите пожалуйста решить задачу.
Совсем не знаю как
Вычислить:

Задача в рисунке.

[Sazary]

А что там непонятно? Или вы не знаете как это написать на паскале?

uses crt;

var x,y,z : real;

begin
clrscr;
write('Enter x: ');
readln(x);
write('Enter y: ');
readln(y);

 if x<0 then
  begin
  if x>y then z := x
  else z := y;
  end
 else
  begin
  if x<y then z := x
  else z := y;
  end;

writeln('Z= ',z:4:2);
readln;
end.

[Irok]

Огромное-огромное спасибо!