Почему программа не работает?

@ROGER_ · Регистрация: 07.05.2021

Author24 — интернет-сервис помощи студентам

Pascal

program n1;
var x,y,g: real;
begin
  write('x=');
  readln(x);
  y:=sin*(sqr(cos)*exp(x*ln(3)))+0.001+ln(sqrt(sqr(x)+1));
  g:=1/2*exp(3*ln((sqr(x)+y+1)))+(sin(sqr(x)+1)+ln(sqrt(sqr(x)+1)))/5*sqrt(sqr(x)+x)+1;
  writeln('y=',y);
  writeln('g=',g);
end.

@Puporev · 07.05.2021, 19:48

Pascal

var x,x1,y,g: real;
begin
  write('x=');
  readln(x);
  x1:=x*x+1;
  y:=sin(sqr(cos(x*x*x)))+0.001+ln(sqrt(x1));
  g:=1/2*exp(3*ln(x1+y))+(sin(x1)+ln(x1))/(5*sqrt(x*x+x)+1);
  writeln('y=',y:0:4);
  writeln('g=',g:0:4);
end.