Написать программку в паскале:Дано трехзначное число. Отыскать число, приобретенное перестановкой первой

program zz1;

var s, n, k, p:integer; // задаем переменные целого типа

begin

write( введите естественное трехзначное число );

read(n);  // вводим с клавиатуры число трехзначного числа

k:=n mod 10;  // получаем последнюю цифру трехзначного числа

p:=n div 100;    // получаем первую цифру трехзначного числа

s:=(n mod 100) div 10; // получаем вторую цифру

n:=k * 100 + s * 10 + p; // формируем новое число, поменяв местами первую и последнюю цифры

writeln( приобретенное перестановкой первой и третьей числа число = , n); // выводим ответ

end.