Составить алгоритмданы числа АВС .удвоить каждое из них,если A<B<C и заменить числа их...

Question

Составить алгоритм
даны числа АВС .удвоить каждое из них,если A<B<C и заменить числа их модулями в противном случае.

Answer 1

 program dhisla;
 var a,b,c:real;
 begin 
readln(a,b,c);
 if (aelse a:=abs(a); b:=abs(b); c:=abs(c);
 writeln(a ,b,c); 
end.