var a,b:real;
begin
readln(a);
readln(b);
if a>b then writeln(a,b)
else writeln(b,a);
readln
end.
Не знаю правильно или нет
var a,b:real;
begin
readln(a);
readln(b);
if a>b then writeln(a,b)
else writeln(b,a);
readln
end.
Не знаю правильно или нет