program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=01;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1,k:=2...k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end.
помогите пожалуйста я же девушка