{* Задача 536 *}

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

Program zadach536;
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 с шагом 1 *}
      For i3 := 1 To 20 Do {* Цикл для i3 => [1 .. 20] *}
      Begin
        mm[1] := i3;
        mm[2] := i2;
        mm[3] := i1;
        fl := 0;
        For i4 := 1 To 2 Do {* Увеличиваем i4 от 1 до 2 с шагом 1 *}
          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.