1)дано двухзначное число "m" получить "n" образовавшим вписование цыфры "1" между цифрами 65 и 615
2) Дано трехзначное число "n" получить "m" заменяя на "0" средние цифры 81 и 851
3) получить число "m" образовавшись перестановкой цифр 100 и 10 (сотен и десятков) "n"

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.