Написать программу, которая по введённому значению числа выводит его модуль? На Паскале

посмотри функцию abs

Я сам только начинающий, но наверное так: ?
Var
a, b : Real; (или Inreger, хз)
Begin
Write('введите число: ');
Readln(a);

b:= -a;

If (a>0) then writeln('a= ', a);
If (a<0) tnen writeln('a= ', b);
If (a=0) then writeln('Расстояние не может ровняться нулю');
Readkey;
End.
Не факт, что правильно. С телефона просто.

var a:real; begin readln(a); writeln(abs(a)); readln end.