Прочитайте. Спишите. И север есть у нас, и юг, Сады цветут на юге, На севере снега вокруг — Там холода и вьюги.

Var a:array[1..11] of real;
t,i:integer;
begin
for i:=1 to 11 do
read(a[i]);
for i:=1 to 11 do
if a[i]>0 then  begin t:=i; break; end;
if t<>0 then writeln(a[t])
else writeln('Not found');
end.