Это же слишком элементарно, чтобы самому не сделать...
var x:real;
begin
writeln('vvedi x:');
readln(x);
writeln('y=',2*x-5/x-1);
end.
Налить воды в четырёх литровый бидон, перелить из него всю воду в пяти
литровый, наполнить опять 4-х литровый и заполнить 5-ти литровый
Кодировка ASCII - семибитная,
КОИ-8 - восьмибитная,
Windows-1251- восьмибитная
Значит эти варианты отпадают.
Остается Unicod, правда здесь надо сделать примечание:
Для тех входных данных, которые указаны в условии задачи кодировка UTF-16
Ответ: Unicode
А) имя массива "а"
Б) в нем 6 элементов
В) тип элементов массива - целые числа (Integer)
Г) данные в массив введены в виде констант (Const)
Д) третья строка программы, после знака "=": (1, 7, 3, 6, 0, 10)
Е) программа подсчитывает сумму элементов массива, делит эту сумму на 6 и результат выводит на экран