написать программу на языке паскаль , которая вводит из пульта ...

Дмитрий

Ответ:
Что то типа того, попробовал проверять, вроде работает
Объяснение:
program example;



var

d,c,a,h:real;



b : real;



function Calculate(d,c,a,h: real): real;

   var  
       Notation: real;

   begin

 

       

       Notation := c + abs(cos(a*h*h)-sin(a*h));

       Calculate := d - sqrt(c/Notation);

       

       

end;

 


begin  
readln(d,c,a,h);

 
b := Calculate(d,c,a,h);

   write(b);

end.