Написать программу, позволяющую определить является ли натуральное число палиндромом.

[zadiraazat7]

Помогите написать программу с использование функций или процедур
Написать программу, позволяющую определить является ли натуральное число палиндромом.

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=251319

[zadiraazat7]

uses crt;
var a,b,c:word;
begin
write('Введите число:');readln(a);
b:=0;
c:=a;
while c>0 do begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then write('Да') else write('Нет')
end.



Как просто делать программу с полиндромом знаю. а вот через процедуры и функции нет.

[ZX Spectrum-128]

http://life-prog.ru/view_algoritmleng.php?id=103

[Mad_Cat]

function Reverse(N:Longint):Longint;
var buf:longint;
begin
  buf:=0;
  while n>0 do
    begin
      buf:=buf*10+n mod 10;
      n:=n div 10;
    end;
  Reverse:=buf;
end;
var c:Longint;
begin
  Readln(c);
  Writeln(c=Reverse(c));
end.