Написать программу для pascal abc, решающую следующую : дано трёхзначное число. вывести число, полученное при перестановке крайних чисел исходного числа

Program z1;
        var x:integer;
        a1,a2,a3:integer;
begin
        write('x=');readln(x);
        a1:=x div 100;
        a2:=(x div 10) mod 10;
        a3:=x mod 10;
        x:=a3*100+a2*10+a1;
        writeln(x);
        readln
end.