НАПИСАТЬ ПРОГРАММУ НА PASCAL
"Дана строка символов S, состоящая максимум из 250 символов. Напишите программу, которая проверит является ли строка S палиндромом. Примеры палиндромов: ‘COJOC’, ‘CAZAC’, ‘POTOP’, ‘ROTOR’."

Я добавил еще один end но все равно она не находит палиндромы

vars:string;l,i:byte;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);readln(s);l := length(s);for i:= 1 to l div 2 do beginif s[i] <> s[l-i+1] then beginwriteln('NO');halt;end;end;writeln('YES');close(input);close(output);end.

переписал, протестил. должно работать.

если работаешь в ABC Pascal, вот другой код:

vars:string;l,i:byte;beginreadln(s);l := length(s);for i:= 1 to l div 2 do beginif s[i] <> s[l-i+1] then beginwriteln('NO');halt;end;end;writeln('YES');end.

vars:string;l,i:byte;beginreadln(s);l := length(s);for i:= 1 to l div 2 do beginif s[i] <> s[l-i+1] then beginwriteln('NO');halt;end;end;writeln('YES');end.