Написать программу для решения задачи: Вывести значение функции у=4х^2-1,5 , если х<0

Question

Написать программу для решения задачи: Вывести значение функции у=4х^2-1,5 , если х<0

Comments

вопрос жизни и смерти!!!!!!

Answer 1

//Pascal
var x,y:real;
begin
  readln(x);
  if x<0 then writeln (4*x*x-1.5) <br>     else writeln ('x >=0');
end.

Comments

спасибо