Составить программу, которая считывает число и выводит его модуль

program zz1;

var n, b:integer; / / задаем переменные целого типа

begin

write ('Введите число ');

read (n); / / вводим с клавиатуры любое число

b: = abs (n); / / вычисляем модуль заданного числа с использованием функции

write (' Модуль заданного числа = ', b); / / выводим ответ

end.