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