напечатать старшую и младшую цифры пятизначного числа, АВС паскаль

program n1;var a,b,c :integer;beginwriteln ('напечатайте число");read (a);b:=a div 10000;c:=a mod 10;writeln ('старшая=',a);writeln ('младшая=', c)end.