// через процедуру

procedure eql(var n: integer);
var s: string;
begin
  s:=IntToStr(n);
  if ord(s[1])+ord(s[2])+ord(s[3]) = 
     ord(s[4])+ord(s[5])+ord(s[6]) then
  writeln('суммы равны')
  else writeln('суммы не равны');
end;

// основная программа
var n: integer;
begin
  repeat
     write('n = ');  readln(n);
     if (n<100000) or (n>999999) then
        writeln('не шестизначное число');
  until n in [100000..999999];    
// через процедуру  
  eql(n);
end.

// через функцию

function feql(var n:integer): boolean;
var s:string;
begin
  s:=IntToStr(n);
  if ord(s[1])+ord(s[2])+ord(s[3]) = 
     ord(s[4])+ord(s[5])+ord(s[6]) then feql:=true
  else feql:=false;   
end;

// основая программа
var n: integer;
begin
  repeat
     write('n = ');  readln(n);
     if (n<100000) or (n>999999) then
        writeln('не шестизначное число');
  until n in [100000..999999];        
//через функцию
  if feql(n) then writeln('суммы равны')
  else writeln('суммы не равны');
end.