===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
Println('Неудовлетворительных', a.Count(p -> p < 5));
if a.Any(p -> p = 10) then
Print('YES')
else
Print('NO')
end.
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
Петя Герасимов, Миша Иванов, Володя Семёнов
Var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2 <>0) then s:=s+i;
<span>end;</span>