Пусть дано натуральное число n, состоящее из шести цифр. определите число сотен и тысяч в нем.

Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
end.