Nhầm nha bạn ! Chương trình này mới chuẩn nè

Uses crt ;

Var A:array[1..100]of integer;

i,n:integer;
tong_so_duong,tong_so_am,TBC_so_duong,TBC_so_am,so_so_am,so_so_duong:real;

Begin
clrscr;

Write('Nhap so so hang:');

readln(n);

for i:=1 to n do

Begin

write('Nhap so:');

readln(A[i]);

if (A[i]>=0) then

begin

tong_so_duong:=tong_so_duong+A[i];

so_so_duong:=so_so_duong+1;

end

else

begin

tong_so_am:=tong_so_am+A[i];

so_so_am:=so_so_am+1;

end;
end;

if (so_so_am>0) then TBC_so_am:=tong_so_am/so_so_am;

if (so_so_duong>0) then TBC_so_duong:=tong_so_duong/so_so_duong;

writeln('TBC so duong la:',TBC_so_duong:5:5);

writeln('TBC so am la:',TBC_so_am:5:5);

readln;

end.

Uses crt;

Var A:array[1..100]of integer;

i,n,tong_so_duong,tong_so_am:integer;
TBC_so_duong,TBC_so_am,so_so_am,so_so_duong:real;

Begin
clrscr;

Write('Nhap so so hang:');

readln(n);

for i:=1 to n do

Begin

write('Nhap so:');

readln(A[i]);

if (A[i]>=0) then

begin

tong_so_duong:=tong_so_duong+A[i];

so_so_duong:=so_so_duong+1;

end

else

begin

tong_so_am:=tong_so_am+A[i];

so_so_am:=so_so_am+1;

end;
end;

TBC_so_am:=tong_so_am/so_so_am;

TBC_so_duong:=tong_so_duong/so_so_duong;

writeln('TBC so duong la:',TBC_so_duong:5:5);

writeln('TBC so am la:',TBC_so_am:5:5);

readln;

end.

A=\(\frac{\left(\sqrt{a}+2\right)\left(\sqrt{a}-3\right)}{\left(\sqrt{a}+3\right)\left(\sqrt{a}-2\right)}\)

a,Rút Gọn Biểu Thức

b,Tìm a sao cho A<1