Если значение x записано в ячейке A1, то формула:
=(2*EXP(LN(ABS(A1)))-КОРЕНЬ(1,5+SIN(2*A1)))/(СТЕПЕНЬ(COS(3*A1);2)+11,5)
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
да выполнение кр это обработка информации как и разгадывание кроссвордов а 3 это скорее всего запоминание информации так как надо запомнить движения и не забыть сделать и передача информации на конечности