Pascal ABC с входными, выходными, промежуточными данными, алгоритмом и кратким пояснением действий.

Pascal ABC.

var   
   a,i,sum,k:integer;
begin   
   for i:=1 to 20 do begin         
      a:=random(1000);         
      write(a, );             // вывод чисел         
      if (a mod 3 = 0) or (a mod 5 = 0) then         
      begin             
         sum:=sum+a;  // складируем сумму            
         inc(k);   // считаем количество      
      end;     
   end;     
   writeln;     
   writeln(sum, , k, , sum/k);    //вывод результата
end.