Палиндромы
вам даны пять чисел:
54321
48987
112233
25

для каждого из этих чисел найдите минимальное целое число, которое было бы больше
данного, и запись этого числа была бы палиндромом, то есть читалась бы одинаково как
слева направо, так и справа налево. например, палиндромами являются такие числа, как 121,
9009, 734437.
в ответе нужно записать пять целых чисел, записанных в отдельных строках. порядок
записи чисел в ответе менять нельзя. если вы не можете найти ответ для какого-то из данных
чисел, вместо этого ответа запишите любое целое число.

да,можно.только одного цвета будет 12,а другого тоже 12 и одна клетка останется. 

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.