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

1. var p,s: real; k: integer; begin write('цена тетради в клетку = '); readln(p); write('количество тетрадей = '); readln(k); s: =p*k; writeln('стоимость покупки = ',s: 5: 2); end. пример: цена тетради в клетку = 12.5количество тетрадей = 3стоимость покупки = 37.502.алг покупканач  вещ цена, стоимость   цел кол  вывод "цена тетради в клетку: ", нс  ввод цена  вывод "количество тетрадей: ", нс  ввод кол  стоимость: =цена*кол  вывод "стоимость покупки = ", стоимостькон

4+3=7                                     1 7 в квадрате =49                   2 49+3=52                                 1 52+3=55                                 1 55+3=58                                 1 справа  1.)прибавь 3 2.)возведи в квадрат