18 lines
441 B
Plaintext
18 lines
441 B
Plaintext
begin
|
|
integer i, j;
|
|
outtext( " " );
|
|
for i := 1 step 1 until 12 do outint( i, 4 );
|
|
outimage;
|
|
outtext( " +" );
|
|
for i := 1 step 1 until 12 do outtext( "----" );
|
|
outimage;
|
|
for i := 1 step 1 until 12 do
|
|
begin
|
|
outint( i, 3 );
|
|
outtext( "|" );
|
|
for j := 1 step 1 until i - 1 do outtext( " " );
|
|
for j := i step 1 until 12 do outint( i * j, 4 );
|
|
outimage
|
|
end;
|
|
end
|