{* Задача 160 *}

Unit ZADACH160;
Interface
Implementation
Begin
 writeln('Для участия в конкурсе из класса в 20 человек требуется выбрать троих. Сколькими способами это можно сделать. ');
End.

Program zadach160;

Uses zadach160.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  k  : longint;
  i1 : longint;
  i2 : longint;
  i3 : longint;
  i4 : longint;
  i5 : longint;
  fl : longint;
  mm : Array[1..3] Of longint;
Begin
  clrscr; {* Очищаем экран *}
  For i1 := 1 To 20 Do {* Переменная i1 увеличивается с 1 до 20 *}
    For i2 := 1 To 20 Do {* Цикл для i2 => [1 .. 20] *}
      For i3 := 1 To 20 Do {* Увеличиваем i3 от 1 до 20 с шагом 1 *}
      Begin
        mm[1] := i3;
        mm[2] := i2;
        mm[3] := i1;
        fl := 0;
        For i4 := 1 To 2 Do {* Цикл для i4 => [1 .. 2] *}
          For i5 := i4 + 1 To 3 Do
            If mm[i4] = mm[i5] Then
              fl := 1;
        If fl = 0 Then
        Begin
          writeln(i3, ', ', i2, ', ', i1);
          inc(k); {* Увеличиваем k на 1 *}
        End;
        
      End;
  write(' кол-во:', k);
  readln; {* Приостановка программы. Ожидание Enter *}
End.