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

Question

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

---

Answer 1

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

Comments

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