Напишите на языке паскаль программу вычисления y по формуле: y=2x-5/x-1, где x - данное целое число.

Это же слишком элементарно, чтобы самому не сделать...
var x:real;
begin
writeln('vvedi x:');
readln(x);
writeln('y=',2*x-5/x-1);
end.

Var x,y : Real;
Begin
  Readln(x);
  y:=2*x-5/x-1;
  Writeln(y:8:4);
end.