Написать программу, которая используя функции mod (остаток от деления) и div (целая часть от деления) находит сумму чисел любого трехзначного числа, число вводится с клавиатуры — Pascal(Паскаль)

Program sqrback;
uses
   crt;
Var
   Num, BackNum: Integer;
   Kvad: LongInt;
Begin
   ClrScr;
   Write('Введите трехзначное число: ');
   Readln(Num);
   BackNum:=(Num div 100)+(Num div 10 mod 10 * 10)+(Num mod 10 * 100);
   Writeln('Обратное число: ', BackNum);
   Kvad:=sqr(BackNum);
   Write('Квадрат обратного числа: ', Kvad);
   Readln;
End.