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

Question

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

Answer 1

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