Помогите пожалуйста сделать программу по паскалю.

Var x,y: real;
begin
  write( x = );  readln(x);
  if x<0 then y:=sqr(x)*x+2
  else y:=sqrt(x);
  writeln( y = ,y:6:4);
end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку