Question

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

Answer 1

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