Question

Составьте программу вычисления значения функции y=x в квадратье + 28 sin a

Answer 1

Program z1;
var  x, y, a: real;
begin
  write('x = ');
  readln(x);
  write('a = ');
  readln(a); 
 y := x * x + 28 * sin(a); 
 writeln('Ответ:', y);
end.