Статья: Операторы цикла

(c>='р')AND(c<='я') THEN CONTINUE;

WRITE(c);

END;

WRITELN;

END.

Впрочем, последнюю задачу, очевидно, можно решить проще:

VAR c : Char;

BEGIN FOR c:=' ' TO #255 DO BEGIN

IF NOT((c>='А')AND(c<='Я')OR(c>='а')AND(c<='п')OR

(c>='р')AND(c<='я')) THEN WRITE(c);

WRITELN;

END.