[lmikle]

Ну, например, так (если мы точно знаем, что число всегда 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;