Паскаль
Помогите, пожалуйста, с номером 4, 11 и 16

Ну если все в паскале то там должна быть примерно такая прога
номер 4
begin
repeat
agt;0
until 
a=abs(a)
end
попробуй так 
11 
begin 
if alt;0 then 
write (a);
else 
end
А вот с последнимм попробуй аналоичное действе сделать