<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12
Диск-носитель
Бумага-носитель
Флешка-носитель
Указатель - носитель
Полное имя файла состоит из пути к файлу и имени файла.
А путь к файлу состоит из последовательности каталогов, ведущих к файлу и разделенных между собой символом \
"Если спрайт касается желтого цвета, то он должен сказать "Светит солнце!" или "Идёт дождь!"
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.