Вычислить и напечатать значения функции: У=Х2+4, при значениях аргумента Х, изменяющихся от 30 до -3 с шагом -1. Паскаль

program noname;

var x,y :real;

begin

x:=-3;

While (x <= 3) do

Begin

if (x <> 0) then

Begin

y:=y+x-1;

Writeln(x:4:1, ' ',y:4:1);

End;

x:=x+0. 1;

End;

Readln;

end.