Дано 3 цифры распечатать все возможные 3 значные цифры

Var
a,b,c:integer;
begin
 readln(a,b,c);

 writeln(a,b,c);
 writeln(b,c,a);
 writeln(b,a,c);
 writeln(a,c,b);
 writeln(c,a,b);
 writeln(c,b,a);
end.