Программная модель (текст программы на языке Паскаль)

programprimer;

type

tsetchar=setofchar;

{здесь располагаются тексты подпрограмм}

var s:string;

begin

if not control(s,['А'..'Щ','Ы','Э'..'Я','Ё','а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н',о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ы,э,ю,'я',' ']) then

begin

writeln('ОШИБКА при вводе строки!!!');

halt

end;

udalen(s);

writeln('РЕЗУЛЬТАТ:');

if length(s)=0 then

writeln('Нет слов, удовлетворяющих одновременно условиям чередования и симметричности')

else

writeln('Результирующая строка: ',s)

end.