Дан массив на 10 целых чисел. Заполняется с клавиатуры числами от

Var A: array [1..10] of integer;                                                                                          i,b: integer;                                                                                                                begin                                                                                                                                for i:=1 to 10 do                                                                                          readln(A[i]); for i:=1 to 10 do begin                                                                                  if A[i]=5 then                                                                                                                       writeln(i,' Строчка');                                                                                                            end;                                                                                                                              end.