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

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.