на отрезке (-3,14:3.14) с шагом 0,2 протабулировать функцию:sin^2(x)+cos^2(x)

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var x:=-3.14;  while x<=3.14 do begin    Writeln(x:5:2,'  ',sqr(sin(x))+sqr(cos(x)));    x:=x+0.2    endend.Результат-3.14  1-2.94  1-2.74  1-2.54  1-2.34  1-2.14  1-1.94  1-1.74  1-1.54  1-1.34  1-1.14  1-0.94  1-0.74  1-0.54  1-0.34  1-0.14  1 0.06  1 0.26  1 0.46  1 0.66  1 0.86  1 1.06  1 1.26  1 1.46  1 1.66  1 1.86  1 2.06  1 2.26  1 2.46  1 2.66  1 2.86  1 3.06  1