---

procedure Pifagor(n: integer);
begin
  for var i:=1 to n do
  begin
    for var j:=1 to n do
      write(i*j:4);
    writeln;
  end;
end;
begin
  Pifagor(15);
end.