Составить программу,решающую следующую : дано трехзначное число. вывести число, полученное при перестановке крайних цифр исходно числа. , !

Паскаль:
program chislo;
var N,c1,c2,c3:integer;
begin
readln(N);
c1:=N div 100; {цифра разряда сотен}
c2:=(N div 10) mod 10;
c3:=N mod 10;{цифра разряда единиц}
writeln(c3*100+c2*10+c1);
end.