Пожалуйста посчитайте сделать программу на Паскале! 9 класс

а)var I:integer;
begin 
for I := 10 to 100 do
if i mod 10=0 then   
 writeln(i);   
 readln;
end.          
 b) var I,k:integer;
begin
k:=0; 
for I := 10 to 100 do
if (i mod 3=0 ) and (i mod 7<>0)then 
   inc(k); 
  writeln(k); 
   readln;
end.                                                                                                                
c)var I,k,sum:integer;
begin
k:=0; sum:=0;
 for I := 10 to 100 do 
begin
if i mod 5=0 then
begin 
 sum:=sum+i; 
 inc(k);
end; 
end;
    writeln(sum/k);
    readln;
end.