Дан фрагмент электронной таблицы.

Это называется число перестановок для трёх предметов.
Вычисляется через факториал числа предметов (произведение всех целых чисел от единицы до указанного):


ответ: рисунки можно повесить шестью

Почему так вычисляется, несложно понять, если перебрать варианты размещения рисунков:
1) на первое место мы можем поставить один из трёх рисунков (то есть тут возникает три варианта)
2) далее, в каждом из этих трёх вариантах, у нас останутся по два рисунка- значит, на второе место мы можем поставить либо один из них, либо другой (то есть, на этом этапе, каждый из трёх начальных вариантов размещения разветвляется на два варианта -получается всего 3*2 = 6 вариантов размещения
3) ну а далее, остаётся всего один рисунок -значит, на третьем месте получается только один вариант размещения последнего рисунка

Вот и выходит, что будет 3*2*1 = 6 вариантов.

Program Test;

Var Vozrast: integer; Bol, Mistake: boolean;

Begin

Bol := true;

Write('Введите возраст ребенка: ');
Readln(Vozrast);
Writeln();

if (Vozrast > 6) then
Writeln('Ребенок не может посещать детский сад')

else if (Vozrast <= 0) then
begin
Writeln('Некорректный ввод данных!');
Mistake := true;
end

else
begin
Writeln('Ребенок может посещать детский сад');
Bol := false;
end;

if (Mistake = false) then
begin
if (Bol = false) then
Writeln('Ребенок станет школьником через ', 7 - Vozrast, ' лет')

else
Writeln('Ребенок уже в школе');
end;

End.