Счастливый билет

Вы пользуетесь общественным транспортом? Вероятно, вы расплачивались за проезд и получали билет с номером. Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр равна сумме последних трех. Т.е. билет с номером 385916 – счастливый, т.к. 3+8+5=9+1+6. Вам требуется написать программу, которая проверяет счастливость билета.
Входные данные

В единственной строке входного файла INPUT.TXT записано одно целое число N (0 ≤ N < 1000000).

Выходные данные

В выходной файл OUTPUT.TXT нужно вывести «YES», если билет с номером N счастливый и «NO» в противном случае.

Примеры

№	INPUT.TXT	OUTPUT.TXT
1	385916	YES
2	123456	NO

Решение

var

    i,a1,a2,a3,a4,a5,a6,t:integer;

    s:string;

    f,f1:text; 

begin

   assign(f,'input.txt'); 

   reset(f); 

   assign(f1,'output.txt'); 

   rewrite(f1); 

   readln(f,s);

   t:=length(s);

   if t<6 then

    for i:=1 to 6-t do

     s:='0'+s;

   val(s[1],a1,i); 

   val(s[2],a2,i);

   val(s[3],a3,i);

   val(s[4],a4,i);

   val(s[5],a5,i);

   val(s[6],a6,i);

   if (a1+a2+a3)=(a4+a5+a6) then write(f1,'YES') else write(f1,'NO');

   close(f);

   close(f1);          

end.