Создайте массив из 10 целых случайных чисел от 0 до 15. Определите, есть ли равный 5. Ответ выведите в виде слова да или нет.

var i, n, k: integer;var A: array [1..10] of integer;begink:=0;for i:=1 to 10 begin A[i]:=random(15); if A[i]=5 then  k:=k+1; end;if k=0 then writeln('нет');          else writeln('да');end.