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

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