Question

Дано целое число. Если оно отрицательное, то вывести на экран его модуль, иначе напечатать его удвоенное значение.
Пожалуйста, срочно надо❤️

Answer 1

Var A:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.