MỚI BOOT LẠI !!!!!!!!!!!!!!!!!

program bt;
const a:array[1..4]of char=('+','-','*','/');
fo='bt2.out';
{------------------------------}
function tinh(a,b,c:integer):integer;
begin
case c of
1:tinh:=a+b;
2:tinh:=a-b;
3:tinh:=a*b;
4:if a mod b=0 then tinh:=a div b
else tinh:=0;
end;
end;
{-----------------------------}
procedure xuly;
var f:text; i,j,k,g,h:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
for g:=1 to 4 do
for h:=1 to 4 do
if (tinh((tinh((tinh((tinh((tinh(1,2,i)),3,j)),4,k)),5,g)),6,h)=35) then
writeln(f,'(((((1',a[i],'2)',a[j],'3)',a[k],'4)',a[g],'5)',a[h],'6=35');
close(f);
end;
{-----------------------}
begin {main}
xuly;
end.

MẠI ZÔ!!!!!! MẠI ZÔ!!!!!!!!!!!