Дан массив из 5 элементов, найти и запомнить 1 элемент, который больше 5. на пасикале и на бэйсике

c:=0;
for i:=5 downto 1 do
if a [ i ] >5 then c:=a [ i ];
if c=0 then writeln('chisla net') else writeln(c);