Ответ: Turbo Pascal
аналогично. зачем в коде перемменная "р" так и не понял. цикл начинаеться от к:=1 to 9 потом "к" присваиваеца значение 0 и считает k:=k+1 тоесть получаеца 1. смысл тогда делать цикл с "к" и обнулять её каждый раз?
если нужно чтобы выводило на экран "к", которое...