Вычислить и вывести на экран модуль разности двух чисел. , вопрос жизни и смерти.

ответ на Паскале ,надеюсь устроит.

Program primer;
var 
     a:real;
     b:real;
     c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c:=ABS(a)-ABS(b);
writeln('ответ:', c:3);
End.