высчитывание мматематических формул в Pascal

[sasha55]

Сообщение от Mad_Cat

var x,y:real;
begin
x:=-5;
while x<=(5+0.25) do
begin
else if x<0 then y:=1/x
else y:=x*x;
writeln(x:6:3,' ',y:6:3);
x:=x+0.5;
end;
end.

Появляется ошибка
Снимок.JPG

[sasha55]

Сообщение от Mad_Cat

это чем не устроило то?
- она полностью ошибка

посмотрите,пожалуйста,еще вот здесь ошибку!
Снимок.JPG

[Mad_Cat]

var x,y:real;
begin
x:=-5;
while x<=(5+0.25) do
begin
if x<0 then y:=1/x
else y:=x*x;
writeln(x:6:3,' ',y:6:3);
x:=x+0.5;
end;
end.