Написать программу , которая находит сумму цифр двузначного числа, а затем меняет цифры местами

var n,a,b,s:integer;beginread(n1);a:=n1 div 10;b:=n1 mod 10;s:=a+b;n:=10*b+a;writeln(s);writeln(n);end.