Я не понимаю где брать S1 для этой формулы Объясните.

Задание:
Добавить столбец Площадь государства (усл. ед.). Вычислить значение для одной ячейки столбца по формуле:
Su = S1+S2,
где S1 – площадь государства в условных единицах до некоторого правителя,
S2 – площадь, добавленная правителем.
Указание. В первую ячейку столбца Площадь государства скопировать Площадь государства до Ивана Грозного.
Выполнить копирование формулы для остальных ячеек столбца.

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

такой адресс получается