Помощь в программировании в pascal

[superkotyara]

Необходимо написать программу в Паскаль, чтобы исходное число превращалось в палиндром. Т.е человек вводит 123, а программа ему выдает 12321. Спасибо заранее.

[min@y™]

Сообщение от superkotyara

Необходимо написать программу в Паскаль, чтобы исходное число превращалось в палиндром. Т.е человек вводит 123, а программа ему выдает 12321. Спасибо заранее.

function pal(const s: string): string;
var
  d: string;
  i: integer;
begin
  d:= s;
  for i:= length(s) - 1 downto 1 do
    d:= d + s[i];
    
  pal:= d;
end;

[Poma][a]

А если 122, то каким должен быть ответ?

[superkotyara]

зеркальное отображение, следовательно 12221

[Вадим Мошев]

А если число уже палиндром, например, 121?

[min@y™]

А если число уже палиндром, например, 121?

Моей функции ваще похрен, чо там ввели, число или нечисло.