Синформатикой! : ввести три числа а в и с. отрицательные числа заменить их абсолютными значениями. желательно ассемблер

Если нужно что-то исправить, говорите.
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.

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.