program primer;var a:array[1..20] of integer;b,c:integer;
beginwrite('write raiting');writeln ;for b:=1 to 20 doread(a[b]);c:=1;repeatinc(c);
until a[c]<5;write(c-1);
end.
program primer;
var a:array[1..20] of integer;
b,c:integer;
begin
write('write raiting');writeln ;
for b:=1 to 20 do
read(a[b]);
c:=1;
repeat
inc(c);
until a[c]<5;
write(c-1);
end.