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.