Задание 
   Установите соответствие между условием задачи и текстом программы.
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить минимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была больше 30 км/ч, выведите «YES», иначе выведите «NO».
- var c, a, i, u, b: integer;
 begin
 u := 301;
 b := 0;
 readln\(c\);
 for i := 1 to c do
 begin
 readln\(a\);
 if a < u then u := a;
 if a > 30 then b := 1;
 end;
 writeln\(u\);
 if b = 1 then
 writeln\('YES'\)
 else writeln\('NO'\)
 end.
- var c, a, i, u, b: integer;
 begin
 max := 0;
 b := 0;
 readln\(c\);
 for i := 1 to c do
 begin
 readln\(a\);
 if a > u then u := a;
 if a < 30 then b := 1;
 end;
 writeln\(u\);
 if b=1 then
 writeln \('YES'\)
 else writeln\('NO'\)
 end.
- var c, a, i, b: integer;
 u, ave: real;
 begin
 s := 0;
 b := 0;
 readln\(c\);
 for i := 1 to c do
 begin
 readln\(a\);
 u := u + a;
 if a >= 30 then b := 1;
 end;
 ave := u/N;
 writeln\(ave:6:1\);
 if b=1 then
 writeln\('YES'\) else
 writeln\('NO'\)
 end.