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

Program n1;var a,b,c,d: real;beginreadln(a,b,c,d);if (a*b>c*d) thenbegina:=a*2;b:=b*2;end else beginc:=c*2;d:=d*2;end;write(a,' ',b,' ',c,' ',d);end.

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!beginvar (a,b,c):=readinteger3('a,b,c->'); var d:=readinteger('d=');if a*b > c*d then begin a:=a*2 ; b:=b*2; end elsebeginc:=c*2; d:=d*2; end;writeln('a=',a,' ','b=',b);writeln('c=',c,' ','d=',d);end.