Нелинейный алгоритм (Pascal)

[DsDevis]

Добрый день. Помогите с решением пожалуйста, не пойму, в чем ошибка.
Даны а, b. Если оба отрицательны, то кажде значение заменить на его модуль, если отрицательно только одно из них - то оба значения увеличить на 0,5, если оба положительны, оба значения увеличить в 10 раз. Вот мой код:

program vetv3;
var
   a,b: integer;
   done,done1,done3: boolean;
   a1,b1: real;
begin
     write('Vvod a ');
     readln(a);
     write('Vvod b ');
     readln(b);
done:=((a<0) and (b<0));
if done=true then
begin
   a:=abs(a);
   b:=abs(b);
end;
else
done1:=((a<0) and (b>0)) or ((a>0) and b<0));
if done1:=true then
begin
     a1:=a+0.5;
     b1:=b+0.5;
end;
else
done2:=((a>0) and (b>0));
if done3=true then
begin
     a:=a*10;
     b:=b*10;
end;
writeln(a,',',b,',',a1,',',b1,);
end.

Проблема в том, что обрабатывается только первый if, если я ввожу положительные числа или положительное и отрицательное - оператор writeln не выполняется. Где я ошибся?

[Аццкий прогер]

Var 
     a, b: real;

Begin
     write('Vvod a ');
     readln(a);
     write('Vvod b ');
     readln(b);

If (a<0) and (b<0) then
 Begin
  a:=abs(a);
  b:=abs(b);
 end;

If (a>0) and (b>0) then
 Begin
  a:=a*10;
  b:=b*10;
 end;

If ((a<0) and (b>0)) or ((a>0) and (b<0)) then
 Begin
  a:=a+0.5;
  b:=b+0.5;
 end;

Write(a:3:1, b:3:1);
end.

Вот вроде правильный код.

[DsDevis]

Спасибо, уже получше. Сейчас write работает при любых значениях a и b,
проблема в том, что если оба отрицательны, они не только приравниваются к своим модулям, они еще и на 10 умножаются 0_о, и еще хотел бы узнать у понимающих людей, что неверного в моем варианте решения?
P.S. удалил все else в своем коде, все заработало, но проблема с лишним умножением на 10 осталась.

[Levsha100]

Сообщение от Аццкий прогер

Var 
     a, b: real;

Begin
     write('Vvod a ');
     readln(a);
     write('Vvod b ');
     readln(b);

If (a<0) and (b<0) then
 Begin
  a:=abs(a);
  b:=abs(b);
 end
  else
   If (a>0) and (b>0) then
   Begin
    a:=a*10;
    b:=b*10;
  end
   else
     If ((a<0) and (b>0)) or ((a>0) and (b<0)) then
     Begin
       a:=a+0.5;
       b:=b+0.5;
     end;

Write(a:3:1, b:3:1);
end.

Вот так должно работать!

[DsDevis]

Все равно, при двух отрицательных значениях кроме приравнения к модулям происходит умножение на 10.
P.S.
Levsha100
Дико извиняюсь, в вашей программе умножения на 10 нету, на выполнение отправлялась программа Аццкого Прогера. Ваша же не компилируется - выдается ошибка 113, Ошибка в инструкции, и указывается первая else. В моем варианте практически тоже самое, но такой ошибки не возникает 0_о.

[OCTAGRAM]

Сообщение от DsDevis

Ваша же не компилируется - выдается ошибка 113, Ошибка в инструкции, и указывается первая else.

Это бывает, если поставить ';' перед else.

[Chudo4258]

Var 
     a, b: real;

Begin
     write('Vvod a ');
     readln(a);
     write('Vvod b ');
     readln(b);

If (a<0) and (b<0) then
 Begin
  a:=abs(a)*10;
  b:=abs(b)*10;
 end;

If (a>0) and (b>0) then
 Begin
  a:=a*10;
  b:=b*10;
 end;

If ((a<0) and (b>0)) or ((a>0) and (b<0)) then
 Begin
  a:=a+0.5;
  b:=b+0.5;
 end;

Write(a:3:1, b:3:1);
end.

[DsDevis]

Всем спасибо за помощь.