Записать алгоритм нахождения гипотенузы прямоугольного треугольника если известны катеты

1. возвести в квадрат длину одного катета 2. возвести в квадрат длину другого катета 3. сложить числа, полученные в предыдущих шагах алгоритма 4. извлечь из полученного числа квадратный корень - это длина гипотенузы.

желтый знак - нехватка памяти

все остальное - размер  

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.