Решить, паскаль: в аэропорту три посадочные полосы. для каждой известны длина и признак занятости (признак =1, если полоса занята и =0, если полоса свободна). для самолета с заданным номером рейса и длиной посадочного пути определить возможность посадки и указать номера посадочных полос.

A, b:array[1..100] of integer;
i, k, n. m, c:integer;
begin
readln(c);
for i:=1 to 3 do
readln(a[i], b[i]);
for i:=1 to 3 do
if (a[i]>c) and (b[i]=0) then writeln('yes', i)
else writeln('no');
readln;
end.