Question

Пожалуйста помогите решить на паскаль с постусловием

Дано натуральное число M. Написать программу для вычисления первой цифры числа M. входные данные 54321 выходные данные 5.
Дано натуральное число M. Написать программу для вычисления второй цифры числа М(M>10) входные данные 54321 выходные данные 4.

Answer 1

var
    m, i: integer;
    a: array[1..10] of integer;

begin
    readln(m);
    i := 0;
    repeat
        i := i + 1;
        a[i] := m mod 10;
        m := m div 10;
    until m = 0;
    
    writeln('Первая цифра ', a[i]);
    writeln('Вторая цифра ', a[i - 1]);
end.