Почему Pascal не видит символ ";"?

Попробуй так:
var s:string;
    A,N,M,X,Y,Z:integer;
begin
     write(s:);
     readln(s);
     A:=1; N:=4;
     while (A<15) and (N<15) do
           for A:=1 to (N-1) do
           begin
                X:=StrToInt(s[1]);
                Y:=StrToInt(s[2]);
                Z:=StrToInt(s[3]);
                M:=100*X+10*Y+Z;
                A:=A+4;
                N:=N+3;
           end;
     if M<256 then writeln(YES)
        else writeln(NO);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.