var a: integer;
begin
write('Введите число: ');
readln (a);
if a < 0 then writeln('Модуль введенного числа: ', -a)
else writeln('Модуль введенного числа: ',a)
end.
var a: integer;
begin
write('Введите число: ');
readln (a);
if a < 0 then writeln('Модуль введенного числа: ', -a)
else writeln('Модуль введенного числа: ',a)
end.