Program prekombinuje všetkými možnosťami 3 zadané čísla

program kombinacia;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln ('Program prekombinuje 3 zadane cisla');
writeln ('-----------------------------------');
writeln ('Zadaj cislo');
readln (a);
writeln ('Zadaj cislo');
readln (b);
writeln ('Zadaj cislo');
readln (c);
clrscr;
writeln (a,b,c);
writeln (a,c,b);
writeln (b,a,c);
writeln (b,c,a);
writeln (c,b,a);
writeln (c,a,b);
readln;
end.