Помогите!!! 100 баллов!!! Составьте 3 программы!!! Или хотя бы 2!!!
Var i: integer; m: array[1..9] of integer; begin for i := 1 to 9 do readln(m[i]); for i := 1 to 9 do if(m[i] mod 3 = 0) then write(m[i]:3); end.