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

var x,y:real;beginreadln(x);if x=0 then begin;  write('Divided by zero');  exit; end;y:=2*x-5/x-1;writeln(y);end.