С клавиатуры вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Посчитайте количество единиц в этой последовательности, количество двоек, количество троек и так далее (программа должна вывести ровно 9 чисел). Входные данные Вводятся числа от 1 до 9, разделенные пробелами. Всего не более 100 чисел. Выходные данные Выведите 9 натуральных чисел.

program zz1;

var x, y1, y2, y3, y4, y5, y6, y7, y8, y9:integer;

begin

read (x);

while x 0 do

begin

if x = 1 then inc (y1);

if x = 2 then inc (y2);

if x = 3 then inc (y3);

if x = 4 then inc (y4);

if x = 5 then inc (y5);

if x = 6 then inc (y6);

if x = 7 then inc (y7);

if x = 8 then inc (y8);

if x = 9 then inc (y9);

read (x);

end;

writeln (' количество введенных 1 = ', y1);

writeln (' количество введенных 2 = ', y2);

writeln (' количество введенных 3 = ', y3);

writeln (' количество введенных 4 = ', y4);

writeln (' количество введенных 5 = ', y5);

writeln (' количество введенных 6 = ', y6);

writeln (' количество введенных 7 = ', y7);

writeln (' количество введенных 8 = ', y8);

writeln (' количество введенных 9 = ', y9);

end.