Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b ≥ с, и заменить их...

Question

Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b
≥ с, и заменить их абсолютными
значениями, если это не так.

Answer 1

Var a,b,c:real;a1,b1,c1:integer;d:boolean;beginread(a,b,c);d:=(a>=b)and(b>=c);if d then begina:=a*2; b:=b*2; c:=c*2;Writeln(a,b,c);
endelse begina1:=trunc(a);b1:=trunc(b);c1:=trunc(c); Writeln(a1,b1,c1);end;end.