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

beginvar x:=-3.14;repeatwriteln ('x=', x, '; y=', sqr(sin(x))+sqr (cos(x)));x:=x+0.2;until x>3.14end.