Составить алгоритм цикла х , если 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.