Program CT;

Uses crt;

Var tp: array[1..50] of integer;

       i: integer;

Begin

     Clrscr;

     Writeln ('Neu la trom cap nhap 1, neu la ma tuy nhap 2, neu la pham luat giao thong nhap 3');

     For i:= 1 to 50 do

         Begin

              Write ('Toi pham thu',i,'=' );

              Readln (tp[i]);

         End;

     Write ('Toi pham trom cap la: ');

     For i:= 1 to 50 do

            If tp[i] = 1 do Write (tp[i],', ');

     Write ('Toi pham ma tuy la: ');

     For i:= 1 to 50 do

            If tp[i] = 2 do Write (tp[i],', ');

     Write ('Toi pham pham luat giao thong la: ');

     For i:= 1 to 50 do

            If tp[i] = 1 do Write (tp[i],', ');

Readln

End.