2. Напишите код программы, который будет вычислять периметр и площадь фигуры.
​

PascalABC.Net

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

24 * 32 = 768 символов на 1 странице

768 * 12 = 9216 символов на 1 странице

9216 * 1 = 9216 байт в буклете

9216 * 8 = 73728 бит в буклете