аbc (х) судя по всему - это abs(x) - модуль числа x.
begin
var x: integer;
var y: real;
readln(x);
if (x>=0) then y:=sqrt(x)
else y:=abs(x);
writeln(y);
end.
