У исполнителя Квадратор две команды, которым присвоены номера
1. раздели на 3
2. воведи вкарат
Первая из них уменьшает число на экране в 3 раза, вторая вотводит число в квадрат
Исполнитель работает только с натуральными числамн. Составьте алгоритм получе-
ния из числа 18 числа 16, содержащий не более 4 команд. В ответе запишите только номе-
ра команд
(Например, 1212 - это алгоритм:
pasdemu na 3
возведи в квадрат
раздели на 3
возведи в квадрат
который преобрале число 18 в 144).
Если таких алгоритмов более одного, то запишите любой из них.
За ание 2.
у сонеа Прагам аке романа которым номен номера​

Если без циклов то
program fifteen;
begin
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
end.

Если циклы уже
program fifteen;
var
i:integer;
begin
for i:=1 to 15 do
writeln('Имя и фамилия');
end.

//В квадратной матрице A [n, n] определить количество строк упорядоченных 
//по убыванию суммы  и вывести их номера.
const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln;
end;
end.