Даны 2 действительных числа х и у вывести их сумму если х больше у ,и произведение если это не так

Var
    x, y: real;

begin
    readln(x, y);
    
    if x > y then
        x := x + y
    else
        x := x * y;
    
    writeln(x);
end.