User вводит расстояние до цели (число). Затем производит серию выстрелов — 10 чисел.…

Program Task; Const count=10; Var shoots: Array [1… count] of Integer; distance, i: Integer; Begin WriteLn ('Введите расстояние до цели'); ReadLn (distance); WriteLn ('Введите серию выстрелов'); For i: =1 To count Do Read (shoots[i]); WriteLn ('Результат: '); For i: =1 To count Do If shoots[i] < (distance — 5) Then WriteLn (i, '. Недолет') Else If shoots[i] > (distance+5) Then WriteLn (i, '. Перелет') Else WriteLn (i, '. Попал'); ReadLn; End.