var
n, i: Integer;
s: string;
begin
Write ('Введите натуральное число, больше 9: ');
ReadLn (n);
if n <= 9 then begin
Writeln ('Ошибка ввода!');
Exit;
end;
s := IntToStr (n);
if Length (s) mod 2 <> 0 then begin // проверка на четность
i := Length (s) div 2 + 1; // вычисление позиции центральной цифры
Delete (s, i, 1); // удаление центральной цифры
Writeln ('Результат: ' + s);
end else
Writeln ('Число цифр в числе четно.');
end;
Если правильно понял ваше задание, то вот.. исходник и скрин вывода в приложении.
Б3 это большая терция,а м2 это малая секунда.Строить так:м2 от до:до ре бемоль,б3 от до:до ми.
Не знаю, в каком промежутке должны быть случайные числа, поэтому решил что в промежутке от 0 до 99. Если что можете изменить
program a2;
var
massiv: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
begin
readln(massiv[i]);
massiv[i] := random(100);
end;
for i := 1 to 10 do
write(massiv[i], ' ');
end.