Не могу решить.

[Владислав Линник]

Помогите решить плиз. Задача такая: Даны 3 числа а, в, с. Удвоить каждое из них, если а>=b>=c и заменить их модулями в противном случае.

[dr.Jekill]

Код: Выделить всё

uses crt;
var a,b,c: real;
begin
 clrscr;
 write('a-> ');
 readln(a);
 write('b-> ');
 readln(b);
 write('c-> ');
 readln(c);
 if (b>=c) and (a>=b) then
  begin 
   a:=a*2;
   b:=b*2;
   c:=c*2;
  end
  else
   begin
    a:=abs(a);
    b:=abs(b);
    c:=abs(c);
   end;
 writeln('a= ',a:8:3);
 writeln('b= ',b:8:3);
 writeln('c= ',c:8:3); 
 readkey;
end.

[Владислав Линник]

Спасибo