Ребят, помогите с информатикой!
задача:
Ввести три числа А В и С. Отрицательные числа заменить их абсолютными значениями.
Желательно ассемблер

Если нужно что-то исправить, говорите.varA,B,C:real;BeginWrite('Введите число A: ');Read(A);Write('Введите число B: ');Read(B);Write('Введите число C: ');Read(C);if A<0 thenBeginA *=-1;Write('|A| = ' + A)End;if B<0 thenBeginB *=-1;Write('|B| = ' + B)End;if C<0 thenBeginC *=-1;Write('|C| = ' + C)End;End.

var a,b,c;real;beginreadln(a,b,c);if a<0 then a:=abs(a);if b<0 then b:=abs(b);if c<0 then c:=abs(c);writeln(a,b,c);end.