помогите составить программу...

помогите составить программу в паскале к функции y=1/x

 

Program n1;
Uses Crt; 
var x,y:real;
begin
     clrscr;  
 
     write('Введите x<>0:');
     readln(x);
 
    if (x=0) then
       begin 
           x:=1; {чтобы не было деления на 0}  
           writeln('На ноль делит нельзя!!!!');
        end;  
 
 y:=1 / x;
writeln('y=',y:5:5)
   readkey; 
end.