Программа

{ ЛИКИ 
  Вычисление }
Program Denis_1;
Const K=1;               { Описание констант }
      M=2.4;
Var A,B,X,Y,Z:real;      { Описание переменных }
BEGIN
  WriteLn;  { Пропуск строки }

  { Ввод данных: }
  Write('Введите A '); { вывод приглашения ввести переменную 'A' }
  ReadLn(A);           { ввод переменной 'A' }
  Write('Введите B '); { вывод приглашения ввести переменную 'B' }
  ReadLn(B);           { ввод переменной 'B' }

  { Вычисление: }
  X:=(Sqrt(Abs(A*A*A-Ln(M))))/(Sqr(Cos(A*B-0.6))+1);
  Y:=(Sin(5*Sqr(X))-1.8*Sin(B+3*M)/Cos(B+3*M))/
     (Ln(Abs(X+Sqrt(Sqr(Sqr(X))-k)))/Ln(10));
  Z:=-13.4e-3*X+Exp(Abs(Sin(Y)+K));

  WriteLn('X=',X:10,' Y=',Y:10,' Z=',Z:10) { Вывод результатов }
END.