7 ответ 2 система упорядочивает файлы по имени
<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
Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>