Приписать к ряду чисел по числу сзади и спереди по числу.

var
  a,g,p:longint;
  n:integer;
begin
  repeat
  write('Chislo > 0:');
  read(a);
  until (a>0);
  repeat
  write('Tsifra dlya dobavleniya:');
  readln(n);
  if not (n in [0..9]) then
    writeln('Oshibka vvoda. Vvedite chislo ot 0 do 9.');
  until n in [0..9];
  g:=a;
  p:=1;
  while a<>0 do
    begin
      p:=p*10;
      a:=a div 10;
    end;
  a:=n*(p*10)+g*10+n;
  write(a);
end.

program chisla;
var
  n, i, m: integer;
  a: array [1..100] of integer;
begin
  write('Введите количество чисел ');
  readln(n);
  writeln;
  write('Введите число, необходимое приписать к ряду чисел сзади и спереди ');
  readln(m);
  writeln; 
  writeln('Введите ряд чисел (в одну строку)');
  for i := 1 to n do
  begin
    read(a[i]);
  end;
  for i := 1 to n do
    write(m, a[i], m, ' ');
  readln;
end.

var
  a,m:integer;
begin
  read(a);
  read(m);
  write(m,a,m);
end.

program chisla;
var
  n, i, m, a: integer;
begin
  write('Введите количество чисел ');
  readln(n);
  writeln;
  write('Введите число, необходимое приписать к ряду чисел сзади и спереди ');
  readln(m);
  writeln; 
  writeln('Введите ряд чисел (в отдельных рядках)');
  for i := 1 to n do
  begin
    read(a);
    writeln(m, a, m, ' ');
  end;    
  readln;
end.

var
a,c1,c2,i,r,k,o:integer;
begin
i:=1;
readln(a,c1,c2);
if c2>9 then
 begin
  k:=c2;
  o:=1;
  while k<>0 do
    begin
     o:=o*10;
     k:=k div 10;
    end;
   end
else o:=10;
 r:=a;
 while r<>0 do
  begin
   i:=i*10;
   r:=r div 10;
  end;
a:=(a+i*c1)*o+c2;
writeln(a);
end.