По убыванию
D. - всех больше
B.
А.
С. - всех меньше
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.
var a,x,b:real;
Begin
read(a,x);
if x>4 then b:=x*ln(x*x);
if x<3 then b:=a*cos(x);
writeln(b);
End.