Как на языке PascalABC выписать квадрат минимальной и максимальной цифры в трехзначном числе введенного с клавиатуры?
Очень желательно с объяснениями вне программы и чтобы работало с отрицательными числами. Желательно с объяснениями, т.к. в домашнем задании ещё много подобных задач. А вне программы чтобы не вырезать вставки. Заранее спасибо.15 баллов.

uses crt;var a,max,x,min:integer;begin clrscr;write('Vvedite chislo: '); readln(a);a:=abs(a);max:=a mod 10;min:=a mod 10;while a>0 do  begin x:=a mod 10; a:=a div 10; if x>max then max:=x; if x<min then min:=x; end;writeln('Max^2: ',sqr(max));writeln('Min^2: ',sqr(min));readln;end.