{Файл: progam_stud.pas
Задача:
    написать программу в паскале.
Y=67arccosx+a^2 Z=ln(x^3+cosa)
при a=0,75 x=0,1
   
Дата:
  }
function tg (arg : real) : real;
begin
tg := sin(arg)/cos(arg);
end;
  
var 
x, y, a, arccos, z    :real;

begin
  //Ввод
 x:=0.14;
 a:=0.75;
 
 
 //решение
 arccos:=arctan(sqrt(1-sqr(x))/x);
  y:=67*arccos+sqr(a); //sqrt -квадратный корень выражения в скобках, sqr-квадрат выражения в скобках
  z:=ln(sqr(x)*x+cos(a));
 
 //вывод
 writeln ('y = ',y);  
 writeln ('z = ',z);  
end.