Помогите пожалуйста решить задачи по программированию (паскаль)

№83
function DaNuNah( a:integer):integer;
begin
if a>1 then result 1;
if a=0 then result 0;
if a<0 then result -1;
end;

№84 тоже самое тока включить учебник и напрячь мозг.