написать программу которая определяет число полиндром
Паскаль
(ну или хотя бы идейку подкиньте)

Спасибо большое)

Program palindrom;Uses crt;var    s: string;    i,f: byte;begin clrscr;   write('String: ');    readln(s);    f := 0;    for i := 1 to length(s) div 2 do        if s[i] <> s[length(s)-i+1] then begin            writeln('No palindrome');            f := 1;            break        end;    if f = 0 then        write('Palindrome');readlnend.