хочузнать2018

31.03.2020 02:37 •  Информатика

Перенести программу из паскаля в питон var

a, success, count, N, i: integer;

begin

count:= 0;

readln(N);

for i := 1 to N do begin

readln(a);

if a < 5 then count := count + 1;

if a = 10 then success := 1;

end;

writeln(count);

if success = 1 then writeln('YES')

else writeln('NO');

end.