Ввести слово. Определить является ли оно палиндромом. (Используя div)
Pascal Turbo.

var s:string; l,i,k:integer;beginreadln(s);l:=length(s);k:=0;for i:=1 to l div 2 do if s[i]=s[l-i+1] then k:=k+1;if k=l div 2 then writeln(s,' - палиндром')else writeln(s,' - не палиндром');end.Пример:kazakkazak - палиндром