{* Задача 318 *}

Unit ZADACH318;
Interface
Implementation
Begin
 writeln('

Ввести значения четырёх чисел х1, х2, х3, х4. Вычислить значение переменной y1, y2, y3, y4, z, при условии, что Y1:=1/sqr(8*x1-x4), Y2:=(2*x1+5*x2)/ln(4*x1-x2), Y3:=ln(5*x3-11)+e^(12*x1+x4),

Y4:=(cos(x3)-5*sin(x4)/sqr(2*cos(x3)-sin(x4)), z:=ln(y1+y2+y3+y4)

');
End.

Program zadach318;

Uses zadach318.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x1 : integer;
  x2 : integer;
  x3 : integer;
  x4 : integer;
  i  : integer;
  z  : real;
  y1 : real;
  y2 : real;
  y3 : real;
  y4 : real;
  f  : real;
  d  : real;
Begin
  f := 0;
  writeln('Вычисление значения функции');
  writeln('Введите значения х');
  read(x1, x2, x3, x4);
  If 8 * x1 - x4 > 0 Then
  Begin
    y1 := 1 / sqrt(8 * x1 - x4);
    writeln('y1=', y1);
  End;
  Else Begin
    f := 1;
  writeln('функция y1 не определена');
End;
If 4 * x1 - x2 > 0 Then
Begin
  y2 := (2 * x1 + 5 * x2) / ln(4 * x1 - x2);
  writeln('y2=', y2);
End;
Else Begin
  f := 1;
writeln('функция y2 не определена');
End;
If 5 * x3 - 11 > 0 Then
  Begin
d := 2.7;
For i := 1 To 12 * x1 + x4 - 1 Do {* Цикл для i => [1 .. 12] *}
  d := d * 2.7;
y3 := ln(5 * x3 - 11) + d;
writeln('y3=', y3);
End
Else Begin
  f := 1;
writeln('функция y3 не определена');
End;
If 2 * cos(x3) - sin(x4) > 0 Then
  Begin
y4 := (cos(x3) - 5 * sin(x4)) / sqrt(2 * cos(x3) - sin(x4));
writeln('y4=', y4);
End
Else Begin
  f := 1;
writeln('функция y4 не определена');
End;
If ((y1 + y2 + y3 + y4) > 0) And (f = 0) Then
  Begin
z := ln(y1 + y2 + y3 + y4);
writeln('z=', z);
End
Else Begin
  writeln('функция z не определена');
End;
readln; {* Ждем подтверждения пользователя *}
readln; {* Ждем нажатия Enter *}
End...