Массив А состоящий из 15 элементов заполняется с клавиатуры. Проверить есть ли в данном массиве элементы равные заданному числу b? вывести на экран порядковый номер таких элементов.

Program zadacha;vara: array[1..15] of integer;i,b: integer;beginwriteln(vvedite 15 chisel);for i:=1 to 15 do read(a[i]);writeln(vvedite chislo b);readln(b);for i:=1 to 15 do beginif a[i]=b then write(N ,i,  );end;end.