// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var x:=-3.14;
  while x<=3.14 do begin
    Writeln(x:5:2,'  ',sqr(sin(x))+sqr(cos(x)));
    x:=x+0.2
    end
end.

Результат
-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