Ответ:

var

a,b,c,d,e:integer;

begin

 Writeln('Введите трехзначное число');

 Readln(a);

 b:=a mod 10;

 c:=a div 10;

 d:=c mod 10;

 e:=a div 100;

 a:=d*100+e*10+b;

 write(a)

end.

Объяснение:

Получилось немного коряво, но зато сможешь сказать, что сам делал, а не с интернета списывал :)