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.