var 
  i, j, sum: integer;
  a: array[1..2, 1..2] of integer;
  
begin
  for i := 1 to 2 do begin
    for j := 1 to 2 do
    begin
      a[i, j] := random(100);
      write(a[i, j] : 5);
    end;
    writeln;
  end;
  writeln('Opredelitel = ', a[1, 1] * a[2, 2] - a[1, 2] * a[2, 1]);
end.