Ну, например, так (если мы точно знаем, что число всегда 6-значное):
Код:
function GetEquation(N : Integer) : String;
var
Left, Right : Integer;
NS : String;
begin
NS := IntToStr(N);
Left := StrToInt(NS[1])+StrToInt(NS[3])+StrToInt(NS[5]);
Right := StrToInt(NS[2])+StrToInt(NS[4])+StrToInt(NS[6]);
If Left = Right Then Result := ' = ' Else
If Left < Right Then Result := ' < ' Else Result := ' > ';
Result := NS[1] + ' ' NS[3] + ' ' + NS[5] + Result + NS[2] + ' ' NS[4] + ' ' + NS[6];
end;