Ввести с помощью read(); два трехзначных числа N1 и N2 (оба integer). В этих числах обменяли младшие цифры. (Например, ввели 347 и 285. После обмена: 345 и 287). Вывести полученные числа и сумму этих чисел PaskalABCNET

Program zadanie; Var n1,n2,a,b:integer; Begin  Writeln('Ввести два 3-х значных целых числа');  Readln(n1,n2);  a:=(n1 mod 100) mod 10;  b:=(n2 mod 100) mod 10;  a:=a+b;  b:=a-b;  a:=a-b;  Writeln('N1=',n1 div 10,a);  Writeln('N2=',n2 div 10,b);  Writeln('Сумма этих чисел=',(n1 div 10)+(n2 div 10)+((a+b) div 10),(a+b) mod 10); End.