Question

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

Answer 1

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.