Произвольным образом вводятся числа до тех пор, пока не будет введено число 15. определить количество этих чисел и найти значение 15k, где k - количество введённых чисел. результат вывести на экран

Var
  a: real;
  k: integer;
begin
  k:= 0;
  repeat  //цикл repeat выполняется до тех пор, пока не будет введено число 15
    writeln('Введите число');
    readln(a);
    k:= k + 1;
  until a = 15;
  writeln('15k = ', 15 * (k - 1)); { (k - 1) чтобы в подсчете введенных чисел не учитывалось само число 15}
end.