ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Я тоже думал, что не проблема, но преподователь оборвал, сказал сделай так чтобы одинаковые ответы не повторялись.
Вот я и думаю как сделать...
Может что-то наподобии этого добавить ?

Код:

Procedure PrintTreangle(n:integer);
VAR
  a,b,c:longint;
  count:longint;
BEGIN
  FOR a:=1 To n Do
    For b:=a+1 To n Do
    Begin
      c:=IntSqrt(a*a+b*b);
      if c>0 Then Writeln(a:4, b:4, c:4);
        Begin
          Writeln(a:4, b:4, c:4);
          count:=count+1;
          if count mod 100=0 Then
          Readln;
        end;
    end;
END;