PASCAl ! Найти палиндромом(то есть его запись читается одинаково слева направо и справа на лево )

[valerka92]

Описать функцию IsSquare(K) , возращающее true ,
Если целый параметр N (>0) является палиндромом(то есть его запись читается одинаково слева направо и справа на лево )
и false в противном случае . С ее помощью найти количество палиндромов в наборе из 10 целых положительных цифр

[Филантроп]

var a,i:integer;
c:integer;
function Pal(n:integer):boolean;
var m,p:integer;
    i:integer;
begin
m:=n;
p:=0;
while m<>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Pal:=true
else Pal:=false;
end;
begin
c:=0;
for i:=1 to 10 do begin
readln(a);if pal(a) then c:=c+1;end;
writeln('count=',c);
readln;
end.

[valerka92]

Спасибо ! !! !! ! ! ! !

[russian-stalker]

Я делал так:

function isSquare(k:integer):boolean;
var
 s,l:string;
 i:integer;
begin
 str(k,s);
 for i:=1 to length(s) do
  l:=s[i]+l;
 isSquare:=s=l;
end;


var
 i,k:integer;
begin
  for i:=1 to 10 do
  begin
   readln(k);
   writeln(k,':',isSquare(k));
  end;
  readln;
end.

[valerka92]

спасибо !!!