написать программу в паскале Из диапазона от 10 до 1000 компьютер выбрал случайным образом число. Если выбранное число является трехзначным, то поменять местами первую и последнюю цифры, выдать на печать число, выбранное ПК и новое, полученное после перестановки цифр. В противном случае, вывести выбранное ПК число

program zz1;

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

begin

n:=random (991) + 10;

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

if (n > 99) and (n < 1000) then

begin

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

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

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

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

write (' число после перестановки = ', n); / /выводим ответ

end;