написать программку в паскале Из спектра от 10 до 1000 компьютер

program zz1;

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

begin

n:=random(991)+10;

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

if (n gt; 99) and (n lt; 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;