Помогите пожайлуста с решением.

[Ximer]

Помогите решить 2 задачки.

[capta1n]

First:

program capta1n;
var
 a : array [1..4] of real;
 flag1,flag2 : boolean;
 i : 1..4;
begin

 for i:=1 to 4 do
 begin
   write ('Enter ',i,': ');
   readln (a[i])
 end;

 flag1:=false;
 flag2:=false;
 if a[1]*a[2]*a[3]*a[4]>0 then
 begin
   flag1:=true;
   writeln ('3*a[i]:   ',3*a[1] :0:2,' ',3*a[2] :0:2,' ',3*a[3] :0:2,' ',3*a[4] :0:2)
 end;
 if a[1]+a[2]<0 then
 begin
   flag2:=true;
   writeln (a[1] :0:2,'+',a[2] :0:2,'=',a[1]+a[2] :0:2)
 end;
 if flag1 and flag2 then writeln ('Without change:   ',a[1],' ',a[2],' ',a[3],' ',a[4] :0:2)
                    else writeln ('(sum a[i])/2:   ',(a[1]+a[2]+a[3]+a[4])/2 :0:2);

 readln

end.

[capta1n]

second: протестил - че-то ответ не сходится не знаю, проверил формулу - написана вроде правильно - если не лень - проверьте кто-нибудь - где я ошибся я так и не пойму или может в задании ошибка

program capta1n;
var
 y,a,c,x,m : real;
 flag : boolean;
begin
  write ('a= '); readln (a);
  write ('c= '); readln (c);
  write ('x= '); readln (x);
  flag:=false;
  if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then
  begin
    flag:=true;
    m:=4*sqr(cos(5*sqr(sin(x))))*cos(5*sqr(sin(x)))*cos(x)/
    (5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))*
    sin(c)/cos(c))
  end;

  if flag and (m>0) then
   y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c)))
   +sqrt(m);

  write ('a      c       x       y'); writeln;
  write (a:0:1,'     ',c:0:1,'     ',x:0:1,'     ',y:0:4); writeln;

  readln
end.

[Ximer]

Спасиб. Проверю