Вывести значение функции у=5,4х^2 если х<1

Question

Вывести значение функции у=5,4х^2 если х<1

Answer 1

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