program test(input,output);
procedure do_for_range(fromv,tov:integer;procedure what(x:integer));
var
    i:integer;
begin
    for i:=fromv to tov do
	what(i);
end;

procedure table;
var
    y:integer;
procedure mult_to(x:integer);
begin
    write(x*y:4);
end;
begin
    for y:=1 to 10 do begin
	do_for_range(1,10,mult_to);
	writeln;
    end;
end;

begin
    table;
end.