Algoritmo que calcule e exiba o valor da função

Dado um número x, fazer um programa para calcular e exibir o valor da função y

Para x < 0
y = 1/x

Para x = 0
Não há função

Para x > 0
y = √x / y

Pseudocódigo:

programa exercicio20
var
   x, y : real;
inicio
   leia x;
	   se (x < 0) entao
   	   	   y ← 1 / x;
   	   senao 
   	   		se (x > 0) entao
	   	   		y ← raiz(x) / x;
	   	   	senao
	   	   		 se (x = 0) entao
   					escreva "Não ha funcao"	   	   
	   			 fim_se;	
		   fim_se;
	   fim_se;	
   escreva y;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 24/03/2014
Program exercicio20;
 uses crt;
 var
 x, y : real;
 Begin
 writeln('Insira um Numero');
 readln(x);
 	if (x < 0) then
 	    y := 1/x
 	else
	   if (x > 0) then
 	    		y := sqrt(x)/x
 	    else
 	     	if (x = 0) then
 	     		writeln('Nao ha funcao');
 writeln('y = ', y);
 writeln('Pressione para fechar');
 readkey;  
End.