{* Задача 431 *}

Unit ZADACH431;
Interface
Implementation
Begin
 writeln('

Вычислить значение функций:

Y=arccosx+a²

Z=3, 7tg²2x

при a = 0.75

x = 0.7

Найти max и min значение среди Y и Z

');
End.

Program zadach431;

Uses zadach431.pas; {* Эту строку можно удалить *}
user math;
Var {* Необходимые переменные *}
  a : real;
  x : real;
  y : real;
  z : real;
Begin
  writeln (‘введите числа x и a’);
  readln (x, a);
  Y := arccos(x) + sqr(a);
  Z := 3.7(tan(2 * x));
  writeln (‘число y = ’, y : 8 : 2, ’при x = ’, x : 5 : 2, ‘и при a = ’, a : 5 : 2);
  writeln (‘число z = ’, z : 8 : 2, ’при x = ’, x : 5 : 2, ‘и при a = ’, a : 5 : 2);
  If (y > z) Then
    writeln (‘y больше z’);
  Else writeln (‘z больше y’);
    readln( );
End.