В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой
<span>Начало
Положить топор в воду
Закипятить
Посолить
Добавить крупы
Добавить масла
Съесть кашу, а топор оставить, чтобы доварить в следующий раз
Конец.)))</span>
16 штук. Куб равен со всех сторон в связи с этим нам надо знать ширину и высоту, 4 на 4 см, это 4 и 4 кубика. В связи с этим 16 кубиков.
Function Max(a,b,c:integer):integer;
Begin
if b > a then a:=b;
if c > a then a:=c;
result:=a;
End;
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
Write('Max = ',Max(a,b,c))
End.