Помогите по информатике, надо составить программу вот условия: массив от 1 до 10 заполнить целыми случайными числами от 1 до 20. Определите есть ли в массиве элемент равный 5. Ответ в виде слов "да" или "нет".

Спасибо, буду проверять.

varmas: array [1..10] of integer;i:integer;beginrandomize;for i:=1 to 10 do beginmas[i]:=random(1,20);write(mas[i], ' ');end;writeln(mas[i], ' ');for i:=1 to 10 do beginif mas[i]=5 thenwriteln('Да');end;end.