Palindrom

Posted on 11.06.2010

0


program Palindrom;
uses crt;
var
    kata : string;
    i,k,p : byte;
    pal,_tmp : byte;

begin
    clrscr;
    writeln(‘CEK PALINDROM’);
    writeln(‘==============’);
    write(‘Input Frase/kata : ‘); readln(kata);

    p:=length(kata);
    i:=1;
    k:=p;
    pal:=0;
    while (i

PALINDROM’);
    readln;
end.

Posted in: Pascal Code