program matrix_alak;
var t:array[1..3,1..3] of real;
    i,j:byte;
begin
  For i:=1 to 3 do
   For j:=1 to 3 do
   begin
    WriteLn('Kerem az ', i, '. sor ',j,'. elemet!');
    ReadLn(t[i,j]);
   end;
  For i:=1 to 3 do
  begin
   For j:=1 to 3 do
    Write(t[i,j]:10:3);
   WriteLn;
  end;
  ReadLn;
end.