Произвольным образом вводятся числа до тех пор, пока не будет введено число 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.