Составьте программу для нахождения среднего арифметического двузначных
чисел, кратных 3, с использованием параметрического цикла. Ответ
прикрепите в виде файла в среде PascalABC.

var i,k,c:integer;begink:=0;c:=0;for i:=10 to 99 do beginif ((i mod 3)=0) thenbegin k:=k+i;c:=c+1;end;end;writeln (k/c);end.