Составить алгоритм цикла


Х , если x>0
У =
Х2-Х+4,5 , если Х<0

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;
writeln(y);
end.