Запишите число 14389 в развёрнутом виде, начиная со старшего разряда

98431 вот

ответ держи надеюсь

Program z1; uses crt; var z: integer; begin clrscr; writeln('1*2=? '); readln(z); if z=2 then writeln('верно! ') else  writeln('не верно! 1*2=2'); writeln('2*3=? '); readln(z); if z=6 then writeln('верно! ') else  writeln('не верно! 2*3=6'); writeln('3*6=? '); readln(z); if z=18 then writeln('верно! ') else  writeln('не верно! 3*6=18'); writeln('4*7=? '); readln(z); if z=28 then writeln('верно! ') else  writeln('не верно! 4*7=28');   writeln('5*9=? '); readln(z); if z=45 then writeln('верно! ') else  writeln('не верно! 5*9=45'); writeln('6*4=? '); readln(z); if z=24 then writeln('верно! ') else  writeln('не верно! 6*4=24'); writeln('7*7=? '); readln(z); if z=49 then writeln('верно! ') else  writeln('не верно! 7*7=49'); writeln ('8*6=? '); readln(z); if z=48 then writeln('верно! ') else  writeln('не верно! 8*6=48'); writeln('9*4=? '); readln(z); if z=36 then writeln('верно! ') else  writeln('не верно! 9*4=36'); writeln('10*8=? '); readln(z); if z=80 then writeln('верно! ') else  writeln('не верно! 10*8=80'); readln; end.