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

Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*bgt;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-gt;'); var d:=readinteger('d=');

if a*b gt; 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.