Помогите, пожалуйста, с заданием по информатике:
Написать на паскале (1-tg x)^ctgx + cos (x-y)

program qq;varx,y,s,x1,x2,y1,e:real;i,c:integer;beginwriteln('введите х ');read(x);writeln('введите y ');read(y);s:=1;x1:=cos(x);x2:=sin(x);y1:=cos(y);e:=((x1/x2)+(x1-y1));c:=trunc(e);for i:= 1 to c do begins:=s*(1-tan(x));end;writeln(s);end.

program qq;varx,y,s,x1,x2,y1,e:real;i,c:integer;beginwriteln('введите х ');read(x);writeln('введите y ');read(y);s:=1;x1:=cos(x);x2:=sin(x);y1:=cos(y);e:=((x1/x2)+(x1-y1));c:=trunc(e);for i:= 1 to c do begins:=s*(1-tan(x));end;writeln(s);end.