Составить алгоритм подсчета суммы s первых 1000 членов гармонии 1+1/2+1/3+1/+ 1/n используя цикл с предисловием нужна только блок схема

PROGRAM B02;
CONST
max = 1000;
VAR
index:word;
sum:real;
BEGIN
index:=2;
sum:=1;
while (index<=max) do begin
sum:=sum+1/index;
index:=index+1;
end;

writeln('1+1/2+1/3+1/4....+ 1/',max,' = ', sum);
END.

Системы оптического распознавания текста требуют калибровки для работы с конкретным шрифтом; в ранних версиях для программирования было необходимо изображение каждого символа, программа одновременно могла работать только с одним шрифтом. В настоящее время больше всего распространены так называемые «интеллектуальные» системы, с высокой степенью точности распознающие большинство шрифтов. Некоторые системы оптического распознавания текста восстанавливать исходное форматирование текста, включая изображения, колонки и другие нетекстовые компоненты.

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.