var
  x, y: real;

begin
  writeln('Введите y:');
  read(y);
  x := (y - 16) / 10;
  write('При у=', y, ',х=', x);
end.