Даны три действительных числа удвойте их,если они окажутся упорядоченными по возрастанию

Question

Даны три действительных числа удвойте их,если они окажутся упорядоченными по возрастанию

Comments

На каком языке? Бейсик? Паскаль?

---

Паскаль

Answer 1

Var a,b,c:real;
begin
readln(a,b,c);
if (a  begin
  a:=2*a;
  b:=2*b;
  c:=2*c;
  writeln(a,' ',b,' ',c)
  end
  else writeln('числа неупорядочные')
end.