var
  ar: array[1..5,1..5]of integer;
  i, j: integer;

begin
  for i:=1 to 5 do
    ar[5,i]:=1;
  for i := 1 to 4 do begin 
    for j:=1 to 5 do begin
      ar[i,j]:=random(11);
      ar[5,j]*=ar[i,j];
      write(ar[i,j]:5);
    end;
    writeln;
  end;
  for i := 1 to 5 do
    write(ar[5,i]:5);
end.