var
  x: integer;

begin
  readln(x);
  writeln('y = ', ((x >= -2) and (x < 2) ? sqr(x) : 4));
end.
=========================
var
  x, y: integer;

begin
  readln(x, y);
  writeln('z = ', (((x >= -2) and (x < 2)) and ((y >= 0) and (y <= 6)) ? sqr(x) + sqr(y) * y : x * y + abs(x - y)));
end.
========================
var
  x: real;

begin
  readln(x);
  writeln('y = ', (x <= 0 ? 0 : (x <= 1 ? x : sqr(sqr(x)))));
end.
========================
var
  x: real;

begin
  readln(x);
  writeln('y = ', (x <= 0 ? 0 / 1 : (x <= 1 ? sqr(x) - x : (sqr(x) - sin(pi * sqr(x))))));
end.
========================
var
  x: array [1..3] of integer;
  i: byte;

begin
  for i := 1 to 3 do
    readln(x[i]);
  for i := 1 to 3 do
    if ((x[i] > 1) and (x[i] < 3)) then
      writeln(x[i]);
end.
========================
var
  x: array [1..3] of integer;
  i: byte;

begin
  for i := 1 to 3 do
    readln(x[i]);
  for i := 1 to 3 do
    if ((x[i] > 1) and (x[i] < 3)) then
      writeln(x[i]);
end.
========================
var
  a, b, c: real;

begin
  readln(a, b, c);
  writeln((a + b > c) and (a + c > b) and (b + c > a));
end.
========================
var
  a, b, c: real;

begin
  readln(a, b, c);
  if (sqr(b) - 4 * a * c < 0) then
    writeln('Нет решений')
  else
    if (sqr(b) - 4 * a * c = 0) then
      writeln('x = ', (-1 * b) / (2 * a))
    else
      writeln('x1 = ', (-1 * b + sqrt(sqr(b) - 4 * a * c)) / (2 * a), #13, 'x2 = ', (-1 * b - sqrt(sqr(b) - 4 * a * c)) / (2 * a));
end.