1. Тема циклы со сщетчиком

var a: array[1… 15]of integer; i: integer; beginfor i: =1 to 15 do if a[i]<0 then write (i,'); end. function f (x: real): real; beginf: =2*sin (x)*sin (x)+1; end; var x: real; beginreadln (x); writeln (f (x); end.