Прямоугольный параллелепипед с ребрами 11,22 и 33.

Предикат: Vol(a,b,c,v):=Mult(a,b,z),Mult(z,c,v).

За

Program Ok;
const n=12;
var A:array[1..n] of integer;
var i:integer;
begin
randomize;
for i:=1 to n do 
begin
A[i]:=Random(21) -10;
write(A[i], );
end;
for i:=1 to n do
begin
if (A[i]<0) then
A[i]:=A[i]*(-1) 
else
A[i]:=0;
write(A[i],);
end;
end.

Я думаю 1вариант лайк

Перевести число 11111012 в десятичную систему счисления 2 способом. - Графический объект, подлежащий представлению в цифровом виде, делится вертикальными и горизонтальными линиями на крошечные фрагменты – пиксели (точки). Такой способ называется растровым кодированием.

Var
  x, y, z: integer;

begin
  read(x, y, z);
  if (x = y) and (y = z) and (x = z) then
  begin
    x := 3 * x;
    y := 3 * y;
    z := 3 * z;
    write(x, y, z);
  end
  else
  if (y = z) then
  begin
    x := -x;
    y := -y;
    z := -z;
    write(x, y, z);
  end
  else
  begin
    x := 222;
    y := 222;
    z := 222;
    write(x, y, z);
  end;
end.