Дана функция f (x)=sin^2x. Составить программу для вычисления функций на отрезке от А…

Program task; var i,a,b,h: longint; beginwriteln ('a? '); readln (a); writeln ('b? '); readln (b); writeln ('h? '); readln (h); i: =a; while (i <= b) do beginwriteln (sin (i)*sin (i); i+=h; end; readln; end.