Берілген программаға түсініктемелер (комментарий) жазыңдар.
Үй тапсырмасы
text
"Программа !
print (text [0:10])
print (text [0:4]).
print (text [-2])
print (text [::3]).​

Uses
  Crt;
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n);
  Write('Для завершения работы программы нажмите Enter');
  Readkey
end.

Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter

Для версии Pascal.ABC.Net:
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.
 

Во-первых, примем ограничение: число должно быть натуральным. т.е. целым и положительным без записи знака.
Во-вторых, возможны два принципиально разных алгоритма.
Первый алгоритм предполагает, что число помещается оператором ввода в целочисленную переменную и тогда мы получаем первую цифру, как результат целочисленного деления на 10, третью - как остаток от целочисленного деления на 100, а вторую - как остаток от деления на 10 результата целочисленного деления на 10.
Второй алгоритм предполагает работу с символьным изображением числа, т.е. после ввода получается символьная строка длиной три. Первый (левый) символ будет первой цифрой числа и так далее.
Ниже приводятся тексты программ на языке Pascal, реализующие эти алгоритмы.

var
  n:integer;
begin
  Write('Введите целое трехзначное число без знака: '); Readln(n);
  Writeln(n mod 10,(n div 10) mod 10,n div 100)
end.

Тестовое решение:
Введите целое трехзначное число без знака: 123
321


var
  n:string;
begin
  Write('Введите целое трехзначное число без знака: '); Readln(n);
  Writeln(n[3],n[2],n[1])
end.

Тестовое решение:
Введите целое трехзначное число без знака: 123
321