Построить на промежутке [-2, 2] с шагом 0,4 таблицу значений функции

Var j:integer;x,y:real;beginx:=-2;j:=0;while j<11  do beginy := x * x; 
writeln(x:6:2,y:6);x:=x + 0.4;j:=j+1;end;

end.