Определить 3-ю цифру в записи 6-значного натурального числа.
Для нахождения 3 цифры надо "отрезать" от числа последние 3 и первые 2 цифры
Составить программу ,применяя операции div и mod.

Помогите пожалуйста.

спасибо)

vara,a1,a2: integer;beginwriteln ('vvedi cislo');read (a);a1:=a div 1000;a2:=a1 mod 10;writeln (a2);end.