Информатика: Вложенные ветвление как бутит в скрече

Program pp; var i,p,c:integer; a:array[1..20]of integer; begin for i:=1 to 20 do begin a[i]:=random(-100,100); write(a[i], ); end; write( Введите p ); read(p); for i:=1 to 20 do begin if(p = a[i]) then begin inc(c); end; end; write( Равных элементов в массиве числу P = ,c); end.Объяснение:создали массив создали 20 рандомных чисел сравнили их с числом p и в случаи успешного условия прибавляем C на 1 и потом вывели C в консоль....