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