По мо ги те ре ши ть

var
  x, fx: real;
  
begin
  write(' x = ');
  readln(x); 
  if x <= 0 then fx := -x - 1
  else
  if x < 2 then fx := sqr(x) - 1
  else fx := 3;
  writeln;
  writeln(' f(', x, ') = ', fx)
end.

var
  x, y, z: real;
  
begin
  write(' x = ');
  readln(x); 
  write(' y = ');
  readln(y); 
  write(' z = ');
  readln(z); 
  writeln;
  if (x <= z)and(z <= y) then write(' ', y, ' ', y, ' ', y)
  else
  if (x >= z)and(z >= y) then write(' ', x, ' ', y, ' ', z)
  else write(' ', sqr(x), ' ', sqr(y), ' ', sqr(z))
end.

var
  R, Z: real;
  k: byte;
  
begin
  write(' R = ');
  readln(R); 
  k := round(R * sqr(sin(R)) * sin(R)) mod 5;
  case k of
    0: Z := R + abs(sin(R) / 3);
    1: Z := sin(R + 2) / cos(R + 2);
    2,4: Z := exp(R - 1) + arctan(R);
    else Z := ln(R + 5) / 3.7
  end;
  writeln;
  writeln(' Z = ', Z:0:5)
end.