Пожалуйста решите 2 задачу !!!

Question

Пожалуйста решите 2 задачу !!!

---

Answer 1

С:= 0
for i := 1 to 9 do
if A[1] (7) < A[0] (4) then begin
c = 0
end;