Составить алгоритм даны числа авс .удвоить каждое из них,если a

 program dhisla;
 var a,b,c:real;
 begin 
readln(a,b,c);
 if (a<b)and(b<c) then begin a:=2*a; b:=2*b; c:=2*c;  end 
else a:=abs(a); b:=abs(b); c:=abs(c);
 writeln(a ,b,c); 
end.