составить линейный алгоритм вычисления значения функции y=1/x (обязательно рассмотреть вариант x=0)

var  x, y: real;begin  readln(x);  if x = 0 then     writeln('На ноль делить нельзя!')  else begin    y := 1 / x;    writeln('1/'+x+'='+y);  end;end.