{ EXAMPLE2.dpr                          (* Это          *)
  Иванов И.И., mm-196                   (* спецификация *)
  09/09/05                              (* программы    *)
  Вычисления по формулам.}              (*              *)

Program example2;                    (* Это заголовок программы. *)

{ Вычисление                            (* Это         *)
      |tg(y)+cos(x^4)|                  (* комментарий *)
  A=--------------------                (*             *)
    |x+y|+(|ctg(x)|)^(1/4) .}           (*             *)

{$APPTYPE CONSOLE}

uses
  SysUtils;

var                                     (* Это раздел описания  *)
  X, Y, A, D1, D2, P: Real;             (* переменных программы *)
                     
begin                                   (* Это       *)
  (* Это операторы для ввода данных *)  (* тело      *)
  Write('Введите X ==>_');              (* программы *)
  ReadLn(X);                            (*           *)
  Write('Введите Y ==>_');              (* Это       *)
  ReadLn(Y);                            (* тело      *)
                                        (* программы *)
  (* Это вычисление числителя *)        (*           *)
  D1 := Abs(Cos(Y) + Cos(Sqr(Sqr(x)))); (* Это       *)
                                        (* тело      *)
  (* Это вычисление знаменателя *)      (* программы *)
  P := Abs(Cos(X)/Sin(X));              (*           *)
  D2 := Abs(X+Y) + Exp(1/4*Ln(P));      (* Это       *)
                                        (* тело      *)
  (* Это вычисление A *)                (* программы *)
  A := D1/D2;                           (*           *)
                                        (* Это       *)
  (* Это вывод результата *)            (* тело      *)
  WriteLn('A=', A:5:8);                 (* программы *)
  ReadLn;
end.                                    (*           *)