Даны два действительных числа X и Y. Если X>Y то вычислить произведение этих чисел, иначе...

Question

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

Answer 1

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

Answer 2

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

---