ДАЮ 25 БАЛЛОВ!!! ВЫПОЛНЯТЬ В PascalABC.NET!!!!! задача. Дано x - трёхзначное число, необходимо найти 2 числа путём циклического сдвига и сумму исходного и полученных чисел. ПОЖАЛУЙСТА!!!!!!!!!!

спасибо!!!!!!!!!!! вот ещё пожалуйста https://znanija.com/task/25932414

var x,x1,x2:integer;beginreadln(x);x1:=(x mod 100)*10+(x div 100);x2:=(x1 mod 100)*10+(x1 div 100);writeln(x1,' ',x2);writeln(x+x1+x2);end.Пример:516165 6511332