помогите решить задание 5 это инфа если что pascal ABC

а есть другой варик решить

эту задачу

Есть

Сейчас изменю

Исправил, пробуйте

var x: array[1..3] of real; y: real; i: integer;beginx[1]:=11.8;x[2]:=6.39;x[3]:=5.54;for i:=1 to 3 do beginif (x[i]<0) then y:=x[i]-2 else y:=sqr(sin(x[i])/cos(x[i]));writeln('y[',i,'] = ,y);end;readln;end.