begin
var x, y, z: real;
Write('Введите значение x= ');
Read(x);
Write('Введите значение y= ');
Read(y);
z := (x - y / 2) + (x / 6);
Writeln('z= ', z);
end.
