{
	Задача:
	- 121 из "Turbo Pascal в задачах и примерах"
	- автор сборника Никита Культин
	Решение:
	- автор Дмитрий С. Кузнецов
	- цена $112.11
}
program SquarePifagor(OUTPUT);
const
  ind = 4; 
  max = 10;
 
var
	i, j, k			:integer;
 
begin
 
writeln(' ':6, ' ------- Квадрат Пифагора -------');
 
for i := 0 to max do
begin
  for j := 0 to max do
  begin
	k := i * j;
	if (i = 0)  and (j = 0)then
		write(' ':ind)
	else
	begin
	  if i = 0 then
    	write(j:ind)
	  else if j = 0 then
	    write(i:ind)
	  else
	    write(k:ind);
	end
  end;
 
  writeln;
end;
 
end.
 
 

ewoJ0JfQsNC00LDRh9CwOgoJLSAxMjEg0LjQtyAiVHVyYm8gUGFzY2FsINCyINC30LDQtNCw0YfQsNGFINC4INC/0YDQuNC80LXRgNCw0YUiCgktINCw0LLRgtC+0YAg0YHQsdC+0YDQvdC40LrQsCDQndC40LrQuNGC0LAg0JrRg9C70YzRgtC40L0KCdCg0LXRiNC10L3QuNC1OgoJLSDQsNCy0YLQvtGAINCU0LzQuNGC0YDQuNC5INChLiDQmtGD0LfQvdC10YbQvtCyCgktINGG0LXQvdCwICQxMTIuMTEKfQpwcm9ncmFtIFNxdWFyZVBpZmFnb3IoT1VUUFVUKTsKY29uc3QKICBpbmQgPSA0OyAKICBtYXggPSAxMDsKCnZhcgoJaSwgaiwgawkJCTppbnRlZ2VyOwoKYmVnaW4KCndyaXRlbG4oJyAnOjYsICcgLS0tLS0tLSDQmtCy0LDQtNGA0LDRgiDQn9C40YTQsNCz0L7RgNCwIC0tLS0tLS0nKTsKCmZvciBpIDo9IDAgdG8gbWF4IGRvCmJlZ2luCiAgZm9yIGogOj0gMCB0byBtYXggZG8KICBiZWdpbgoJayA6PSBpICogajsKCWlmIChpID0gMCkgIGFuZCAoaiA9IDApdGhlbgoJCXdyaXRlKCcgJzppbmQpCgllbHNlCgliZWdpbgoJICBpZiBpID0gMCB0aGVuCiAgICAJd3JpdGUoajppbmQpCgkgIGVsc2UgaWYgaiA9IDAgdGhlbgoJICAgIHdyaXRlKGk6aW5kKQoJICBlbHNlCgkgICAgd3JpdGUoazppbmQpOwoJZW5kCiAgZW5kOwoJCiAgd3JpdGVsbjsKZW5kOwoKZW5kLgoK