Дано многозначное число. нужно найти сумму его крайних чисел. с контрольная ​

1. N = , 
32= ,
i = 5 бит. 
ответ: 5 бит.

2. V = K * I, где
V - объем,
K - количество символов в сообщении,
I - количество бит на 1 символ.

N = , 
32= ,
i = 5 бит. 

V = K * I,
V = 10 * 5 = 50 бит.
ответ: 50 бит.

3. N₁ =  ,
32 =  ,
i = 5 бит.

N₂ =  ,
64 =  ,
i = 6 бит.

V₁ = K * I,
V₁ = 50 * 5 = 250 бит.

V₂ = 40 * 6 = 240 бит.

V₁ - V₂ = 10 бит.
ответ: 10 бит.

4. K = n*x*y, где
K - количество символов в сообщении, 
n - число страниц,
x - число строк,
y - число символов в строке.

n = 30,
x = 40,
y = 50,
K - ?

K = n*x*y,
K = 30*40*50 = 60000 символов.
ответ: 60000 символов.

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.