Задача про счастливые билетики.

uses crt;
var n:integer;
    s1,s2:byte;
begin
repeat
write('Введите 6-значное число n=');
read(n);
until(n>=100000)and(n<=999999);
s1:=0;s2:=0;
while n>1000 do
 begin
  s1:=s1+n mod 10;
  n:=n div 10;
 end;
while n>0 do
 begin
  s2:=s2+n mod 10;
  n:=n div 10;
 end;
writeln('Сумма первых 3х=',s2,' сумма вторых 3х=',s1);
if s1=s2 then write('Счастливый')
else write('Не счастливый')
end.

uses crt;
var s:string;
    a,c:integer;
    i,s1,s2:byte;
begin
repeat
write('Введите 6-значный номер билета n=');
read(s);
val(s,a,c);
if c<>0 then writeln('Ошибка, повторите ввод');
until c=0;
s1:=0;s2:=0;
for i:=1 to 6 do
if i<4 then s1:=s1+ord(s[i])-48
else s2:=s2+ord(s[i])-48;
writeln('Сумма первых 3х=',s1,' последних=',s2);
if s1=s2 then write('Счастливый')
else write('Не счастливый')
end.

var n:LONGINT{!!!};
    i,s:shortint;
begin
repeat
  write('Введите 6-значное число n=');
  read(n);
until(n>=0)and(n<=999999);
for i:=1 to 6 do begin
  if i<4 then inc(s,n mod 10)
  else dec(s,n mod 10);
  n:=n div 10
end;
if s=0 then write('Счастливый')
else write('Не счастливый')
end.

n:LONGINT{!!!};