ОООЧЕЕЕЕНЬ НААДО ХЭЭЭЛП ,ПОЖАЛУЙСТА
//2 var x:Real; Begin Read(x); Writeln(abs(x)); end. //3 var a,b:Real; Begin Read(a, b); Writeln('Минимум -> ', min(a,b)); Writeln('Удвоенный минимум -> ', min(a,b)*2); end.