var
a,b,i:integer;
s:longint;
begin
repeat
write('Vvedite chisla a,b=');
readln(a,b);
until a<b;
s:=0;
for i:=a to b do
inc(s,sqr(i));
writeln('Summa kvadratov=',s);
end.
НЕ (X < 6), следовательно, X >= 6
X нечетное
Между ними стоит "И", значит условия должны выполняться одновременно.
X >= 6 И X нечетное.
Наименьшее число будет 7.
Ответ: 7
Alviko прав, однако мы тут не благородные влюблённые, чтобы, в случае отказа, не надоедать, посему попытаться стоит, пусть и с PascalABC.NET:
var
a: System.Numerics.BigInteger := new System.Numerics.BigInteger(1);
i: integer;
begin
for i := 58 to 158 do
a := a * i;
writeln(a);
<span>end.</span>