Помогите пожалуйста. В программе паскаль, написать программу, которая сравнивает два действительных числа x, y. Если x больше чем y находит их сумму, а произведение если это не так. Спасибо
Program n_1;
var x,y:double;
begin
read(x,y);
if x>y then x:=x+y
else x:=x*y;
writeln(x:0:10);
end.