Составить линейный алгоритм вычисления значения функции 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.