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