Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  pal
Language: PASCAL
Code:
program Palindrome;
uses wincrt;
var
ch,msg:boolean;
i:integer;
begin
repeat
writeln('donner un mot');
readln(ch);
unil length(ch)>=0;

for i:=1 to length (ch) do ;
 if ch[i] = ch[length(ch) -i +1] than
   msg:=('palindrome')
else msg:=('non palindrome');
end;
end.     
          
          
Comments: