1)дано двухзначное число "m" получить "n" образовавшим вписование цыфры "1" между

Program z10;  Var m,n:integer;Begin  writeln('Задание 1: ');  write('Введите двухзначное число m - '); readln(m);  n:= m div 10 * 100 + 10 + m mod 10;   writeln('N = ', n);  writeln;    writeln('Задание 2: ');  write('Введите трехзначное число n - '); readln(n);  m:= n div 100 * 100 + n mod 10;   writeln('M = ', m);  writeln;    writeln('Задание 3: ');  write('Введите трехзначное число n - '); readln(n);  m:= n div 100 * 10 + n div 10 mod 10 * 100 + n mod 10;   writeln('M = ', m);  writeln;  End.