Выполните ** компьютере все программы, приведённые в этом параграфе

Question

Выполните на компьютере все программы, приведённые в этом параграфе

---

---

---

---

---

Answer 1

var A,B,C:real;

begin

readLn(A,B);

C:=A;

if B>A

then C:=B;

write(C);

end.