Исправлена ошибка в блок-схеме: в блоке k=0 i=1 должно быть kn=0, потому что в противном случае счетчик kn оказывается без начального сброса, а обнулять какое-то к смысла нет, потому что больше оно нигде не используется.
Каждому блоку соответствует строка программы, за исключением, конечно, описания данных и операторных скобок begin..end
var
i, n, kn: integer;
x: real;
begin
Write('n='); Readln(n);
kn := 0; i := 1;
while i <= n do begin<br> Write('x='); Readln(x);
if x > 0 then
kn := kn + 1;
i := i + 1
end;
Writeln('kn=', kn)
end.