Bài pascal hay..

[MegaShares]

uses wincrt;       
var i1,i2,i3,i4,i5,a,b,c,d,e,f,g:integer;
    s,dau:string;
function tinh(i:integer;a,b:real):real;
var t:real;
begin
case i of
1: t:=a+b;
2: t:=a*b;
3: t:=a-b;
4: t:=a/b;
end;
tinh:=t;
end;
begin
clrscr;
writeln('Code: Vo Doi - hamrong.net');
writeln('Phuong trinh tong quat: (((((a?b)?c)?d)?e)?f)=g');
write('Nhap a, b, c, d, e, f, g: '); readln(a,b,c,d,e,f,g);
dau:='+*-/';
for i1:=1 to 4 do
for i2:=1 to 4 do
for i3:=1 to 4 do
for i4:=1 to 4 do
for i5:=1 to 4 do
if tinh(i5,tinh(i4,tinh(i3,tinh(i2,tinh(i1,a,b),c),d),e),f)=g then
writeln('(((((',a,dau[i1],b,')',dau[i2],c,')',dau[i3],d,')',dau[i4],e,')',dau[i5],f,')=',g);
readln;
end.