Ввести с 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.