Ребят, помогите с информатикой!

задача:

Ввести три числа А В и С. Отрицательные числа заменить их абсолютными значениями.

Желательно ассемблер

Var a, b, c; real;

begin

readln (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.

Если нужно что-то исправить, говорите.

var

A, B, C:real;

Begin

Write ('Введите число A: ') ;

Read (A) ;

Write ('Введите число B: ') ;

Read (B) ;

Write ('Введите число C: ') ;

Read (C) ;

if A<0 then

Begin

A * = - 1;

Write ('|A| = ' + A)

End;

if B<0 then

Begin

B * = - 1;

Write ('|B| = ' + B)

End;

if C<0 then

Begin

C * = - 1;

Write ('|C| = ' + C)

End;

End.