Массив содержит рост 10 учеников 9 класса. Проверить есть ли в классе хотя бы один ученик роста 172 см и вывести его номер по списку

Ответы:

program one,

var a:array [1..10] of integer,

i:integer,

begin

for i:=1 to 10 do

read(a[i]),

for i:=1 to 10 do

if a[i]=172 then write i,

end,