Даны четыре действительных числа 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.

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var (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 else

begin

c:=c*2; d:=d*2; 

end;

writeln('a=',a,' ','b=',b);

writeln('c=',c,' ','d=',d);

end.