Question

Написать программу, определяющую модуль числа ( В Паскале)

Answer 1

var
a:integer;
begin
writeln('Введите число');
readln(a);
b:=abs(a);
writeln('Модуль этого числа ',b);
end.

Answer 2

var a:real;
begin
writeln('Введите число');
readln(a);
a:=abs(a);
writeln('Модуль числа равняется ',a);
end.