Вывод программы-2

var N: integer;
    m, k: real;
begin
for var a:=1 to 98 do
for var b:=a+1 to 99 do
for var c:=b+1 to 100 do
    begin
      N:= a*a+b*b+c*c;
      m:= N/3;
      k:=sqrt(m);
      if (a*a+b*b+c*c) mod 3=0 then writeln(a,'*',a,'+',b,'*',b,'+',c,'*',c,'=',N,'=3*',m,';',k);
    end;
    writeln;
end.

var
  N, m, k: integer;
begin
  AssignFile(output, 'variants.txt');
  Rewrite(output);
  for var a := 1 to 98 do
    for var b := a + 1 to 99 do
      for var c := b + 1 to 100 do
      begin
        N := a * a + b * b + c * c;
        if (a * a + b * b + c * c) mod 3 = 0 then begin
          m := N div 3;
          k := trunc(sqrt(m));
          if sqr(k) = m then
            writeln(a, '*', a, '+', b, '*', b, '+', c, '*', c, '=', N, '=3*', m, ';', k);
        end;   
      end;
  writeln;
  
end.

begin
  Range(1, 98)
  .SelectMany(i1->Range(i1+1,99).Select(i2->(i1,i2)))
  .SelectMany(t->Range(t[1]+1,100).Select(i3->t+i3))
  .Tabulate(t->Sqr(t[0])+Sqr(t[1])+Sqr(t[2]))
  .Where(t->t[1] mod 3 = 0)
  .Select(t->(t[0], real(t[1] div 3).Sqrt.Trunc))
  .OrderBy(t->t[1])
  .Select(t->$'[{t[0][0],3},{t[0][1],3},{t[0][2],3}]: {t[1]}')
  .PrintLines;
end.

type
  numvars = record
    a,b,c,n,m,k : integer;
    
    function toString : String; override;
    begin
      Result := $'{a}*{a}+{b}*{b}+{c}*{c}={n}=3*{m};{k}';
    end;
  end;
 
 
 
begin
  var VList := New List<numvars>;
 
  var V := New numvars;
 
  for var aa := 1 to 98 do
    for var bb := aa + 1 to 99 do
      for  var cc := bb + 1 to 100 do
      begin
        V.a := aa; V.b := bb; V.c := cc; 
        V.N := V.a * V.a + V.b * V.b + V.c * V.c;
        if V.N mod 3 = 0 then begin
          V.m := V.N div 3;
          V.k := trunc(sqrt(V.m));
          if sqr(V.k) = V.m then VList.Add(V)
        end;   
      end;
  
  AssignFile(output, 'variants2.txt');
  Rewrite(output);
 
  VList.OrderBy(x->x.k).PrintLines;
  
end.

uses System;
const m=50;
const gray = ConsoleColor.Black;
const color:array of ConsoleColor=(ConsoleColor.Blue,ConsoleColor.Green,ConsoleColor.Red);
begin
  var a := matrgen(m,m,(r,c)->sqr(r+1)+sqr(c+1));
  var b := a.ElementsByRow;
  var f := '{0,'+(b.Max.ToString.Length+1)+'}';
  var d := New Dictionary<integer,ConsoleColor>;
  var colorindex := 0;
  for var row := 0 to m-1 do
     begin
       for var col := 0 to m-1 do
         begin
           if b.Count(v->v=a[row, col]) > 1 then
             if d.ContainsKey(a[row,col]) then
               Console.ForegroundColor := d.Item[a[row,col]]
             else
               begin
                 d.Add(a[row, col], color[colorindex]);
                 Console.ForegroundColor := color[colorindex];
                 colorindex+=1;if colorindex=color.Length then colorindex:=0;
               end
            else
              Console.ForegroundColor := Gray;
           Write(Format(f, a[row, col]));
         end;
       WriteLn;
     end;
  Console.ForegroundColor := Gray;
end.

uses System;
 
const
  colors: array of ConsoleColor = (
ConsoleColor.Black,
ConsoleColor.DarkBlue,
ConsoleColor.DarkGreen,
ConsoleColor.DarkCyan,
ConsoleColor.DarkRed,
ConsoleColor.DarkMagenta,
ConsoleColor.DarkYellow,
ConsoleColor.Gray,
ConsoleColor.DarkGray,
ConsoleColor.Blue,
ConsoleColor.Green,
ConsoleColor.Cyan,
ConsoleColor.Red,
ConsoleColor.Magenta,
ConsoleColor.Yellow,
ConsoleColor.White
);
 
type
  numvars = record
    a,b,c,n,m,k : integer;
    
    function toString : String; override;
    begin
      Result := $'{a}*{a}+{b}*{b}+{c}*{c}={n}=3*{m};{k}';
    end;
  end;
 
 
 
begin
  var VList := New List<numvars>;
 
  var V := New numvars;
 
  for var aa := 1 to 98 do
    for var bb := aa + 1 to 99 do
      for  var cc := bb + 1 to 100 do
      begin
        V.a := aa; V.b := bb; V.c := cc; 
        V.N := V.a * V.a + V.b * V.b + V.c * V.c;
        if V.N mod 3 = 0 then begin
          V.m := V.N div 3;
          V.k := trunc(sqrt(V.m));
          if sqr(V.k) = V.m then VList.Add(V)
        end;   
      end;
  
//  AssignFile(output, 'variants2.txt');
//  Rewrite(output);
 
 // цветной вывод в консоль
 
  var KPrev := -1;
  var colorindex := 0;
  
  foreach var item in  VList.OrderBy(x->x.k) do begin
      if item.k<>KPrev then begin 
         KPrev := item.k; colorindex += 1; if colorindex = colors.Length then colorindex := 1;
         Console.ForegroundColor := colors[colorindex]; 
         end;
      item.toString.Println;
  end;
  
end.