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

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