liliana :

1. Определить, является ли билет счастливым (сума первых трех цифр равна сумме последних 3-х).

В PascalABC NET  инструкция USES CRT не работает (исключите её).

Текст ниже можно скопировать и просто всавить в окно PascalABC.NET :

program bilet;

var i,x,a: integer;

var s1,s2: integer;

begin

     writeln(′vvedite 6-znach nomer′);

     readln(x);

     for i:=1 to 6 do

         begin

         a:=x mod 10 ;

         if i<=3 then s1:=s1+a

            else

            s2:=s2+a;

         x:=x div 10;

         end;

     if s1=s2 then writeln (′Yes′)

        else writeln (′no′);

        writeln(s2,′  ′, s1) ;

end.