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

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