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

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