Листинг программы

program z52;

{ Для участия в конкурсе из класса в 20 человек требуется выбрать троих.

  Сколькими способами это можно сделать.}

uses crt;

var k,i1,i2,i3,i4,i5,fl:longint;

    mm:array[1..3]of longint;

 begin

  clrscr;

   for i1:=1 to 20 do

    for i2:=1 to 20 do

     for i3:=1 to 20 do

      begin

       mm[1]:=i3;

       mm[2]:=i2;

       mm[3]:=i1;

       fl:=0;

       for i4:=1 to 2 do

       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); end;

         end;

    write(' кол-во:',k);

  readln;

 end.