Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов. заменить (v, w)
нашлось (v)
Первая команда заменяет в строке первое слева вхождение цепочки v на цепочку w. Если цепочки v в строке нет, эта команда не изменяет строку. Вторая команда проверяет, встречается ли цепочка v в строке исполнителя Редактор. Если она встречается, то команда возвращает логическое значение "истина", в противном случае возвращает значение "ложь".
Дана программа для исполнителя Редактор:

НАЧАЛО
ПОКА нашлось (11111)
заменить (222, 1)
заменить (111, 2)
КОНЕЦ ПОКА
КОНЕЦ
Какая строка получится в результате применения приведённой программы к строке вида 1…12…2 (2020 единиц и 2020 двоек)?

Пройдёмся отдельно по каждой строчке:

S: =0; a:=0; //задали две переменные, обе равны 0

While a < > 5 do //создали цикл, тело которого будет выполняться до тех пор, пока значение переменной "а" не равно 5

Begin //ниже выполнится тело цикла

Read (a); //считали значение переменной "а" (ввод с клавиатуры)

S:=S+a //увеличили значение переменной "s" на переменную "а", то есть нашли сумму двух переменных

WriteIn (' сумма S=', S); //вывели сумму, которая хранится в переменной "S", на экран

End; //конец тела цикла

Проведя анализ программы, выяснили, что в результате выполнения данного фрагмента кода, в переменную "s" записывается сумма всех переменных "a", введённых с клавиатуры. Программа завершает свое действие, когда пользователь вводит с клавиатуры цифру "5", т.к. цикл действует до той поры, пока переменная "а" не равна 5. Таким образом, мы получили на выводе сумму всех введённых нами с клавиатуры чисел.

Var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
randomize;
t:=0;
Writeln('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i, j] := random(10); 
end;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=1/i+j-1;
end;
for i:=1 to n do
for j:=1 to n do
begin
for k:=1 to n do
begin
t :=t+a[i,k]*b[k, j];
end;
c[i,j]:=t;
t:=0;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',c[i,j]:2:2);
end;
Writeln;
end;

end.