исполнителя две команды, которым присвоены номера: 1. прибавь 2; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, исполнителя увеличивает число на экране на 2, а выполняя вторую, умножает это число на b. Программа для исполнителя — это последовательность номеров команд. Известно, что программа 12111 переводит число 7 в число 51. Определите значение ВТОРОЙ ВО У исполнителя две команды, которым присвоены номера: 1. прибавь 3; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, исполнителя увеличивает число на экране на 3, а выполняя вторую, делит это число на b. Программа для исполнителя — это последовательность номеров команд. Известно, что программа 11211 переводит число 30 в число 12. Определите значение b.

Если Вы ранее пользовались интернетом и все было нормально, то следует проверить компьютер на вирусы. Возможно  антивирусная программа попросту устарела. Тогда, следует обновить антивирусную программу или установить новую. Если же вирусов нет, то проверьте качество сети, иногда браузеры выдают аварийную ошибку, когда прерывается связь. Это можно легко определить, на модеме будет часто и прерывисто мигать лампочка (если у вас модем допустим мегафон или что-то подобное), на стационарном модеме, подключенном к телефону, потухнет или будет гореть красным знак "собаки". 
Когда вы убедились, что с Вашей стороны все в порядке. то вы имеете право обратиться в "Центр управления сетями и общим доступом", или обратиться по телефону, указанному в договоре с компанией представителем услуг, с сообщением о неисправности сети. В указанный  срок они обязаны устранить неполадки.

1)
var s:string;
     i:integer;
     f:boolean;
begin
  f:=false;
  write ('S = ');
  readln(s);
  for i:=1 to length(s) div 2 do
   if s[i]=s[length(s)-i+1] then f:=true else 
    begin
      f:=false;
      break;
    end;
  if f then writeln ('PALINDROM') else writeln ('NOT PALINDROM');
  readln;
end.

2)
var a,b:integer;
     count,j:integer;
function palindr (n:integer):boolean;
var s:string;
     i:integer;
begin
  palindr:=false;
  str (n,s);
    for i:=1 to length(s) div 2 do   
      if s[i]=s[length(s)-i+1] then palindr:=true else
        begin
           palindr:=false;
           break;
        end;
end;
begin
  write ('A = ');
  readln(a);
  write ('B = ');
  readln(b);
  count:=0;
  for j:=a to b do
    if palindr(j) then
     begin
       write (j,' ');
       count:=count+1;
     end;
  writeln;
  writeln ('Kol-vo palindromov: ',count);
  readln;
end.