Как-то не помню про цикл do, но с циклом while и repeat (хотя лучше использовать цикл со счетчиком for) будет выглядеть так:
//с циклом while
var
a, n, neud, i, ok: integer;
begin
readln(n);
i := 1;
while i <= n do <br> begin
readln(a);
if a < 5 then neud := neud + 1;
if a = 10 then ok := ok + 1;
i:=i+1;
end;
writeln(neud);
if ok > 0 then writeln('YES') else writeln('NO');
end.
// С циклом repeat
var
a, n, neud, i, ok: integer;
begin
readln(n);
i := 1;
repeat
readln(a);
if a < 5 then neud := neud + 1;
if a = 10 then ok := ok + 1;
i:=i+1;
until i>n;
writeln(neud);
if ok > 0 then writeln('YES') else writeln('NO');
end.
// с циклом for
var
a, n, neud, i, ok: integer;
begin
readln(n);
for i:=1 to n do begin
readln(a);
if a < 5 then neud := neud + 1;
if a = 10 then ok := ok + 1;
end;
writeln(neud);
if ok > 0 then writeln('YES') else writeln('NO');
end.