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

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