Question

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

Answer 1

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

Answer 2

ой в первом не а>0, а А<0