Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел.

program cycle_for;var i,kn : byte; x:real;begin   kn:=0;     for i:=1 to 10 do       begin          writeln('Введите ',i,' число: ');          readln(x);       if x>0 then kn:=kn+1 {увеличиваем кол-во на 1}end;   writeln('Вы ввели ',kn,' положительных чисел.');readlnend.