Помогите составить код для решения задачи в программе "PascalABC.NET"(Фотография с текстом задачи прилагается к вопросу)

Question

Друзья программисты, помогите! <img title="Помогите составить код для решения задачи в программе \"PascalABC.NET\"(Фотография с текстом задачи прилагается к вопросу) " src="//sprtqa.b-cdn.net/download/6e2648d4fcb0f8a7940c001aaf443872_i-7.jpg" >

Юля · Accepted Answer

перемена местами 
t:=a; a:=b; b:=f, остальное сам