Question

Составить программу, которая из неотрицательного числа извлечет корень, иначе вычислить модуль этого числа. Помогите пожалуйста!

Answer 1

Ответ:

program Hello;

var x:integer;

begin

readln (x);

if x>=0 then writeln (sqrt (x))

else WriteLn(abs(x));

end.