n:=0;
for i:=1 to 10 do
if a[i]=50 then n:=i;
if n=0 then write('Нет') else write (i)

Запишите полный текст программы и выполните ее на компьютере.