Cоставить алгоритм для вычисления значения выражения z = (x - y)/2 + (x/6) заранее большое !

На паскале

var
  z, x, y :real;
 
begin

  readln(x,y);
  z:= (x - y)/2 + (x/6);
  writeln(z);

end.