Программа, а второе не знаю
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
Если надо быстро, можно так:
uses GraphABC;
begin
Draw(x->1/x)
end.
+быстрое и легкое применение,маленький граф.файл
-жесткие контуры,нереалистичные изображения
Var n,a,i,k:integer;
s:string;
begin
s:='No'; k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if a<5 then k:=k+1;
if a=10 then s:='Yes';
end;
writeln(k);
writeln(s);
end.