Даны два действительных числа x и y. если x> y то вычислить произведение этих чисел, иначе их сумму

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

Мы такие вещи решали схемой(соре за кривой почерк)