Пусть дано натуральное число n, состоящее из шести цифр. Определите число сотен и тысяч в нем.
Var n:string; begin readln(n); writeln('Число сотен: ',n[4]); writeln('Число тысяч: ',n[3]); end.