Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка - Turbo Pascal

Формулировка задачи:

Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка. Вычислить среднее значение этих чисел? я сделал саму задачу,а вот последнее условие не смог, как его сделать?:= Вычислить среднее значение этих чисел?

program five;
var p,q,s,c:integer;
begin
write('VVEDITE p,q');
readln(p,q);
c:=0;
s:=1;
write('rezultat:');
while c<8 do
begin
if (s mod p=0) and (s mod q=0) then
begin
c:=c+1;
write(' ' , s);
end;
s:=s+1;
end;
end.

Решение задачи: «Вывести на экран 8 первых натуральных чисел, которые делятся на p и на q без остатка»

Листинг программы

var n, p, q, k, s: Integer;
begin
  Write('p q: '); ReadLn(p,q);
  {k:=0; s:=0; n:=0;}
  repeat
    Inc(n);
    if (n mod p=0) and (n mod q=0) then begin
      Ink(k); s:=s+n; Write(' ',n);
    end;
  until k=8;
  WriteLn; WriteLn('Среднее: ',s/8:0:2);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные n, p, q, k и s типа Integer.
Затем происходит чтение значений переменных p и q с помощью функции ReadLn.
В цикле repeat происходит увеличение переменной n на единицу.
Если n делится на p и q без остатка, то значение переменной s увеличивается на n, а значение переменной k инкрементируется.
Если условие (n mod p=0) and (n mod q=0) выполняется, то число n выводится на экран с помощью функции Ink.
Цикл повторяется до тех пор, пока значение переменной k не станет равным 8.
После окончания цикла выводится средний результат, который рассчитывается как отношение суммы s к 8.
Выводится символ новой строки с помощью функции WriteLn.