Question

помогите пожалуйста первое и второе задание

Answer 1

var  i,n,l: integer;beginfor i:=108 to 999 do beginif (i mod 9 =0)then writeln(i+'') end;end.