10 потому что больше нету луди жду от вас

Оплата

Вам не предоставляют никакой гарантии на разблокирование компьютера, поскольку единственная цель мошенника - это получение денег. Это точно не снять блокировку. Никаких денег никому присылать не нужно.

Найти сайт с кодами

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

Поставить специальную утилиту для удаления вируса

Это единственный который обеспечит Вам удаление вируса с компьютера. Вопрос лишь в том, как Вы установите специальную утилиту. Поскольку Ваш компьютер заблокирован, то единственным остаётся загрузка со специального диска или USB, на котором установлена антивирусная программа, специальная разработанная для удаления вирусов. Это Вам снять блокировку.

Program part1;

type
  Point = record
    x, y, z: real
  end;

var
  A, B: Point;
  L: real;

begin
  write('Введите координаты (x,y,z) точки А: ');
  readln(A.x, A.y, A.z);
  write('Введите координаты (x,y,z) точки B: ');
  readln(B.x, B.y, B.z);
  L := sqrt(sqr(B.x - A.x) + sqr(B.y - A.y) + sqr(B.z - A.z));
  writeln('Длина отрезка АВ равна ', L:0:4)
end.

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

Введите координаты (x,y,z) точки А: 3 -2 5
Введите координаты (x,y,z) точки B: -2.6 4 6.2
Длина отрезка АВ равна 8.2946

program part2;

const
  k = 20;

type
  Point = record
    x, y, z: real
  end;

var
  a: array[1..k] of Point;
  i, n: integer;

begin
  write('Введите количество точек (1-20): ');
  readln(n);
  for i:=1 to n do
    begin
    write('Введите координаты (x,y,z) точки ',i,': ');
    readln(a[i].x, a[i].y, a[i].z)
    end;
  for i:=1 to n do
    if (a[i].x=0) and (a[i].y=0) and (a[i].z=0) then
      writeln('Точка номер ',i,' лежит в начале координат')
end.

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

Введите количество точек (1-20): 6
Введите координаты (x,y,z) точки 1: 4 2 -4
Введите координаты (x,y,z) точки 2: 3 0 5
Введите координаты (x,y,z) точки 3: 0 -3 0
Введите координаты (x,y,z) точки 4: 3.5 7 -2
Введите координаты (x,y,z) точки 5: 0 0 0
Введите координаты (x,y,z) точки 6: 2 5 8
Точка номер 5 лежит в начале координат