Решите задачу по информатике,пожалуйста!)

1. Вариант, в котором исключены случаи повтора пар (а,b) и (b,а), например
3² + 4² = 5² и 4² + 3² = 5² считаются повтором.
Цикл по b мы начинаем со значения а+1. Вариант b=a не рассматривается,
по следующей причине:
Пусть a=b, тогда a²+b² = 2a² = c² ⇒ (a/c)=√2, но отношение двух натуральных чисел (по крайней мере в диапазоне 1-100) не может представляться иррациональным числом, следовательно a ≠ b

// PascalABC.NET 3.0,сборка 1073
var
  a,b,c:integer;
begin
  for a:=1 to 100 do
    for b:=a+1 to 100 do
      for c:=1 to 100 do
        if sqr(a)+sqr(b)=sqr(c) then
          Writeln(a:3,b:4,c:4)
end.

Результат выполнения программы:
  3   4   5
  5  12  13
  6   8  10
  7  24  25
  8  15  17
  9  12  15
  9  40  41
 10  24  26
 11  60  61
 12  16  20
 12  35  37
 13  84  85
 14  48  50
 15  20  25
 15  36  39
 16  30  34
 16  63  65
 18  24  30
 18  80  82
 20  21  29
 20  48  52
 21  28  35
 21  72  75
 24  32  40
 24  45  51
 24  70  74
 25  60  65
 27  36  45
 28  45  53
 28  96 100
 30  40  50
 30  72  78
 32  60  68
 33  44  55
 33  56  65
 35  84  91
 36  48  60
 36  77  85
 39  52  65
 39  80  89
 40  42  58
 40  75  85
 42  56  70
 45  60  75
 48  55  73
 48  64  80
 51  68  85
 54  72  90
 57  76  95
 60  63  87
 60  80 100
 65  72  97

2. Вариант, в котором не исключены случаи повтора пар (а,b) и (b,а), например
3² + 4² = 5² и 4² + 3² = 5² не считаются повтором, в результате чего вывод содержит вдвое больше строк.

// PascalABC.NET 3.0,сборка 1073
var
  a,b,c:integer;
begin
  for a:=1 to 100 do
    for b:=1 to 100 do
      for c:=1 to 100 do
        if sqr(a)+sqr(b)=sqr(c) then
          Writeln(a:3,b:4,c:4)
end.

Результат выполнения программы:
  3   4   5
  4   3   5
  5  12  13
  6   8  10
  7  24  25
  8   6  10
  8  15  17
  9  12  15
  9  40  41
 10  24  26
 11  60  61
 12   5  13
 12   9  15
 12  16  20
 12  35  37
 13  84  85
 14  48  50
 15   8  17
 15  20  25
 15  36  39
 16  12  20
 16  30  34
 16  63  65
 18  24  30
 18  80  82
 20  15  25
 20  21  29
 20  48  52
 21  20  29
 21  28  35
 21  72  75
 24   7  25
 24  10  26
 24  18  30
 24  32  40
 24  45  51
 24  70  74
 25  60  65
 27  36  45
 28  21  35
 28  45  53
 28  96 100
 30  16  34
 30  40  50
 30  72  78
 32  24  40
 32  60  68
 33  44  55
 33  56  65
 35  12  37
 35  84  91
 36  15  39
 36  27  45
 36  48  60
 36  77  85
 39  52  65
 39  80  89
 40   9  41
 40  30  50
 40  42  58
 40  75  85
 42  40  58
 42  56  70
 44  33  55
 45  24  51
 45  28  53
 45  60  75
 48  14  50
 48  20  52
 48  36  60
 48  55  73
 48  64  80
 51  68  85
 52  39  65
 54  72  90
 55  48  73
 56  33  65
 56  42  70
 57  76  95
 60  11  61
 60  25  65
 60  32  68
 60  45  75
 60  63  87
 60  80 100
 63  16  65
 63  60  87
 64  48  80
 65  72  97
 68  51  85
 70  24  74
 72  21  75
 72  30  78
 72  54  90
 72  65  97
 75  40  85
 76  57  95
 77  36  85
 80  18  82
 80  39  89
 80  60 100
 84  13  85
 84  35  91
 96  28 100