[BBoost]

Program lab2;
var
B:array [1..4,1..4] of integer;
s:real;
i,j:integer;
begin
s:=1;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
read(B[i,j];
end;
readln;
end;
for i:=1 to 4 do s:=s*(sqr(b[i,i])*b[i,i]);
end.