Дано натуральное число n.Получить новое число, поставив ноль перед каждой цифрой , кроме первой (например, дано число 567, результат - 50607) на паскале решить

uses crt; var a,h:longint; b:integer; begin clrscr; writeln ('Введи число'); readln (a); h:=1; while a>0 do   begin   b:=a mod 10;   h:=h*100+b;   a:=a div 10; end; a:=0; while h>10 do       begin       b:=h mod 10;       a:=a*10+b;       h:=h div 10;       end; writeln (a); readln; end.