Даны 3 числа a, b, c. Если a<b<c, числа удвоить. Иначе найти их абсолютную величину.

Question

Даны 3 числа a, b, c. Если a

Answer 1

Program n1;
Uses CRT;
Const n=10;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b i c');
Readln(a,b,c);
If (a begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else
begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln;
Writeln(a,b,c);
readln
end.