{Файл: progam_stud.pas
Задача:
    F=((sqr(sin(x))+cos(y))+ax)/(b*tg(x+y))
Автор:
   
Дата:
  }
function tg (arg : real) : real;
begin
tg := sin(arg)/cos(arg);
end;
  
var 
x, y, F, a, b    :real;

begin
  //Ввод
  writeln ('введите x');
  readln (x);
  writeln ('введите y');
  readln (y);
  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
 
 //решение
  F:=((sqr(sin(x))+cos(y))+a*x)/(b*tg(x+y)); //sqrt -квадратный корень выражения в скобках, sqr-квадрат выражения в скобках
 //вывод
 writeln ('F = ', F);  
end.