Var y,x:real;
begin
x:=-2;
while x <= 2 do begin
y:=sqr(x)-2x;{Считаем значение функции}
writeln(y);{Выводим значение функции}
x:=x+0.5;{Наш шаг цикла}
end;
end.
