Напишите программу в паскале на а,в,с которое вводит трёхзначнон число и меняет 2 крайних числа

Предыдущий
вопрос Следующий
вопрос

program ChangeTwoDigits;
var
num, a, b, c, temp: integer;
begin
write('Введите трехзначное число: ');
read(num);
a := num div 100; // Получаем первую цифру числа
b := num mod 10; // Получаем последнюю цифру числа
c := (num div 10) mod 10; // Получаем среднюю цифру числа
temp := a;
a := b;
b := temp;
writeln('Измененное число: ', a*100 + c*10 + b);
end.

Пример работы программы:

Введите трехзначное число: 357
Измененное число: 397