Даны четыре действительных числа a,b,c,d. Если произведение abбольше произведения cd, то удвоить числа a и b, в противном случае удвоить числа c и d

Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.