паскаль

[7rubin]

var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x<0 then
y:=2*x-1
else if x>=0 then
y:=-x+1/sqr(x);
else showmessage('ошибка');
writeln ('y = ', y:4:2);
readln;
end.

[whatever]

else if x>=0 then

мм?

else showmessage('ошибка');

Расскажи пожалуйста, при каком значении x будет выводиться showmessage?

Да и программа вообще не запустится, ибо

y:=-x+1/sqr(x);
 else showmessage('ошибка');

В общем много лишнего, хоть и можно программу заставить работать. А вообще, grom333 уже написал верный, рабочий и короткий вариант.