Язык программирования Pascal
Поменять местами цифры любого трехзначного числа и вывести их на экран

program wk;var x,a,b,c:integer;beginReadln(x);A:=x mod 10;b:=x div 100;c:=(x div 10)mod 10;x:=a*100+b*10+c;Writeln(x);Writeln(a,' ',b,' ',c);end.