25 !

14. у исполнителя альфа две команды, которым присвоены номера:
1. умножь на 2
2. прибавь b
выполняя первую из них, альфа умножает это число на 2, а выполняя вторую, увеличивает число на экране на b. программа для исполнителя альфа – это последовательность номеров
команд. известно, что программа 21121 переводит число 1 в число 38. определите значение b

если квадратов десять, то:

[если честно, лет 7 не кодил на паскале, поэтому могу ошибаться в синтаксисе или каких-то деталях]

задаем 3 массива числовых элементов:

var

s, p, x: array[1..10] of integer; //s - будущие площади, p - периметры, x - стороны квадратов

i: integer; //счетчик для цикла

begin

for i : = 1 to 10 do

  begin

  writeln("введите сторону "+inttostr(i)+" квадрата: ");

  readln(x[i]);

  end; //ввели стороны, теперь вычисляем площади и периметры:

for i : = 1 to 10 do

  begin

  s[i] : = x[i]*x[i]; //для нахождения площади перемножаем стороны каждого квадрата

  p[i] : = x[i]*4; //для нахождения периметра - умножаем сторону квадрата на 4

//и тут же выводим это на экран:

  writeln("площадь "+inttostr(i)+" квадрата равна "+inttostr(s[i]));

  writeln("периметр "+inttostr(i)+" квадрата равен "+inttostr(p[i]));

  writeln;

  end;

readln //это чтоб дождаться нажатия энтер перед закрытием окошка : )

end;

должно работать.