Составить программу, которая из неотрицательного числа извлечет корень, иначе вычислить модуль этого числа. Помогите пожалуйста!
Ответ:
program Hello;
var x:integer;
begin
readln (x);
if x>=0 then writeln (sqrt (x))
else WriteLn(abs(x));
end.