var c: real;
begin
readln(c);
writeln(c * 0.5 * c / 2);
end.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,3,-10,10);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('min=',s.Min,', max=',s.Max)
end.
<u>Пример</u>
*** Исходная матрица ***
-10 -10 -9
-8 -2 -2
-1 -2 -5
-6 6 -5
------------
min=-10, max=6
Имя ячейки конечно нельзя удалить