Пожалуйста,срочно.Составьте на двух языках алгоритм нахождения у,если у=(х+1)/2х.

program SpTrap;
var :integer;
begin
writeln ('ВВеди переменную x');
readln ();


writeln();
end
-----------------------------------------------------------------
1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма 
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма