Даны пятизначное и четырехзначное числа . вычислить квадратный корень суммы десятков тысяч и сотен пятизначного числа и десятков четырехзначного числа. паскаль . надо !

Решение с использование длинной арифметики.
var
  i, j, n, len, rem: integer;
  a: array[1..200] of byte;
begin
  write('Введите число: ');
  read(n);
  len := 1;
  a[1] := 1;
  for i := n + 1 to 99 {100} do
  begin
    for j := 1 to len do
    begin
      rem := a[j] * i + rem;
      a[j] := rem mod 10;
      rem := rem div 10;
    end;
    while rem > 0 do
    begin
      inc(len);
      a[len] := rem mod 10;
      rem := rem div 10;
    end;
  end;
  writeln('Произведение чисел из интервала (', n, '; 100): ');
  for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000

a[1] = -4   a[2] = -1   a[3] = 4   a[4] = 11   a[5] = 20   a[6] = 31   a[7] = 44   a[8] = 59   a[9] = 76   a[10] = 95

Объяснение:

for i:=1 to 10 do a[i]:=i*i-5;

i = 1       a[1] = 1 * 1 - 5 = 1 - 5 = -4

i = 2     a[2] = 2 * 2 - 5 = 4 - 5 = -1

i = 3      a[3] = 3 * 3 - 5 = 9 - 5 = 4

i = 4      a[4] = 4 * 4 - 5 = 16 - 5 = 11

i = 5      a[5] = 5 * 5 - 5 = 25 - 5 = 20

i = 6       a[6] = 6 * 6 - 5 = 36 - 5 = 31

i = 7        a[7] = 7 * 7 - 5 = 49 - 5 = 44

i = 8        a[8] = 8 * 8 - 5 = 64 - 5 = 59

i = 9        a[9] = 9 * 9 - 5 = 81 - 5 = 76

i = 10     a[10] = 10 * 10 - 5 = 100 - 5 = 95