Решите пожалуйста)) Заранее благодарю

Question

Решите пожалуйста)) Заранее благодарю

---

---

Answer 1

Чтобы найти наибольшее пишешь на паскале if a>b then writeln(a) else writeln(b);
цикл for i:=0 to k do write(n,' ');
смена местами это добавь переменную i, напиши i:=a a:=b b:=i