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

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

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