Var a:integer;
<span>begin </span>
<span>writeln('Введите сторону куба'); </span>
<span>readln(a); </span>
<span>writeln('Объем куба с ребром ',a,' равен — ',a*a*a); </span>
<span>writeln('Площадь поверхности куба равна — ', 6*a*a); </span>
<span>end. </span>
Ну вообще там не написано какие?Потому что надо сложить эти оценки(Например 10+9+8=27,и 27:3=9)Ну вот.
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
<u>Примеры</u>
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True