Составить алгоритм цикла Х , если x>0 У = Х2-Х+4,5 , если Х<0 <br>
Program gt; var x,y:real; begin readln(x); if(x>0)then y:=x; if(x<0)then y:=x*x-x+4.5;<br>writeln(y); end.