Составьте программу. Для вводимых с клавиатуры чисел определить количество положительных. ввод чисел прекращается, когда пользователь вводит 0.

var a,k:integer;beginwriteln('Вводите числа. Конец ввода - 0');k:=0;readln(a);while a<>0 do begin if a>0 then k:=k+1; readln(a); end;writeln('k = ',k);end.Пример:Вводите числа. Конец ввода - 08-45-23-70k = 3