Напишите программу, которая сортирует массив «методом пузырька» и находит количество различных чисел в нем. Пример: Массив: 5 3 4 2 1 6 3 2 4. После сортировки: 1 2 2 3 3 4 4 5 6. Различных чисел: 5 Паскаль абц

Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0,  Е  = 1, У = 2. Тогда получим:
1) 000000, (0)
2) 000001, (1)
3) 000002, (2)
4) 000010, (3)
...
301) ... (300)
а это получаются числа записанные в троичной системе счисления.
На 301 месте будет стоять число равное в десятичной системе 300
Переведем число 300 из десятичной системы в троичную, получим:
300 : 3 = 100 - остаток 0
100 : 3 = 33 - остаток 1
33 : 3 = 11 - остаток 0
11 : 3 = 3 - остаток 2
3 : 3 = 1 - остаток 0
1 : 3 = 0 - остаток 1
т.е. получаем число 102010 в троичной системе счисления.
Подставив обратно наши буквы получим ответ: ЕАУАУА.

Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании

x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.