Распознавание текста широко используется для.

Var
  i, n, s: longint;
  d, k: integer;

begin
  i := 3; k := 0;
  repeat
    s := 1;
    for d := 2 TO Trunc(sqrt(i)) do
    begin
      n := (i div d);
      if n * d = i then s := s + d + (i div d);
    end;
    if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
    if s = i then k := k + 1;
    i := i + 1
  until (k = 3);
  Writeln('Третье совершенное число равно ',s)
end.

Тестовое решение:
Третье совершенное число равно 496

const
  k=35; { k-е по порядку простое число }

var
  i,j,n,m:integer;

begin
  n:=1; i:=1;
  repeat
    j:=2;
    m:=round(sqrt(i));
    while (i mod j <>0) and (j<=m) do j:=j+1;
    if j>m then n:=n+1;
    i:=i+1
  until (n=k);
  Writeln(i-1)
end.

Тестовое решение:
137

var
  n, d1, d2, d3: integer;

begin
  Write('Введите трехзначное число ->');
  Readln(n);
  d1 := (n div 100);
  d2 := ((n mod 100) div 10);
  d3 := (n mod 10);
  if (d1 * d2 * d3 in [100..999]) then
    Writeln('Произведение цифр трехзначное')
  else Writeln('Произведение цифр не трехзначное')
end.

Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное

*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
% - операция остатка от целочисленного деления    

1. Norton System Doctor, Norton UnErase, Norton Disk Doctor, Norton WinDoctor. Optimization Wizard, Speed Disk. Norton Registry Tracker, Norton Registry Editor

2. Основным требованием архивного копирования файлов является сжатие файлов с целью уменьшения занимаемого архивной копией пространства на диске

3. Компьютер начинает виснуть, выскакивают глобальные ошибки, не запускаються приложения, очень слабо ходит по сайтам.

4. Ограничение свободы (до 4 лет);

Принудительная деятельность (до 4 лет);

Лишение свободы (до 4 лет) с одновременным денежным взысканием до 200 тыс. руб. или з/п за период до полутора лет.

5. Основным средством защиты компьютера является антивирусная программа, поэтому для обеспечения безопасности первым делом установите ее, , Новые вирусы появляются каждый день, поэтому антивирус необходимо регулярно обновлять, , Лучше использовать платную версию антивируса, так как она имеет больше возможностей.

Обновите операционную систему и браузер до последней версии, ведь именно через их «дыры» большинство вирусов попадают в компьютер. Делайте это регулярно или установите автоматическое обновление.

Включите брандмауэр Windows или установит любой другой, он оповестит о подозрительной активности программ, которые могут быть вирусами.