Program olimpserg4iyl; uses crt; var a,v,c,d: integer; begin a: =random (100000); writeln (' '); writeln ('* *'); writeln ('* ',a,' *'); writeln ('* *'); writeln (' '); if (a> 999) and (a< 10000) and (a mod 5=0) then writeln ('ваш билетик выиграл'); else writeln ('ваш билетик проиграл'); end. в чём ошибка? pascal abc