Написать программу. Найдите сумму и среднее арифметическое всех двузначных чисел кратных 3.

Program n1;var sum,k,i: integer;begink:=0;sum:=0;for i:=10 to 99 do if i mod 3=0 then begink:=k+1;sum:=sum+i;end;writeln('сумма: ',sum);write('срзнач: ',sum/k);end.