Вводится последовательность чисел 3, 5, 1, 0, 6. В результате выполнения программы Var a: array[1 . . 5] of integer; i: integer; begin for i:=1 to 5 do begin read(a[i]); if a[i]=5 then write(i); end; end.