246
>Verifica daca un cuvand dat de la tastatura este sau nu palindrom.
program cuv_palindrom; var s:string; function palin(poz:integer):boolean; begin palin:=true; if poz<length(s)/2 then if s[poz]<>s[length(s)-poz+1] then palin:=false else palin:=palin(poz+1); end; begin write('Dati cuvantul: '); readln(s); if palin(1) then writeln('Cuvantul ',s,' este palindrom') else writeln('Cuvantul ',s,' nu este palindrom'); readln; end. {PascalZone.uv.ro}