Question

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

Answer 1

Var x:real;
Begin
 write('x=');
 readln(x);
 x:=abs(x);
 write('|x|=',x);
End.