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.