Вывести значение функции у=5,4х^2 если х<1
//Pascal var x,y:real; begin readln(x); if x<1 then writeln (5.4*x*x) <br> else writeln ('x >=1'); end.