Информатика. Кандай домендік атауы бар? Және не үшін "электрондық үкімет" деп аталады?

1 бидон-9л
2 бидон-4л
так же должна быть посуда или еще одни бидон для того,чтобы можно было после переливать воду для того, чтобы получить 6 литров(3 бидон)
в бидон 9л набрать воды и перелить в бидон 4л.  после переливания В бидоне 9л остается 5 литров. из бидон с 4л выливаем воду,и из 1 бидона в котором после переливания осталость 5 литров опять переливаем во 2-ой бидон. после чего, в бидоне 1 остается й литр воды.Сейчас в бидоне 1-   1 литр воды, а в бидоне 2  - 4 литра воды. из бидона 2 (в котором 4 литра) выливаем воду, а из бидона 1(в котором 1 литр воды) переливаем воду в бидон 3. у нас остается 1 и 2 бидон без воды, а бидон 3 с 1 литром воды. после чего, в бидон 1 наливаем 9 литров воды и переливаем в бидон 2 = в бидоне 1 остается 5 литров воды, эти 5 литров переливаем в бидон 3 и в нем у нас получается 6 литров.
а для получения 7 литров воды надо сделать тоже самое, что и для 6 литров. только после этого надо еще раз повторить вот это (в бидон 9л набрать воды и перелить в бидон 4л.  после переливания В бидоне 9л остается 5 литров. из бидон с 4л выливаем воду,и из 1 бидона в котором после переливания осталость 5 литров опять переливаем во 2-ой бидон. после чего, в бидоне 1 остается й литр воды.Сейчас в бидоне 1-   1 литр воды, а в бидоне 2  - 4 литра воды. из бидона 2 (в котором 4 литра) выливаем воду, а из бидона 1(в котором 1 литр воды) переливаем воду в бидон 3)
все, надеюсь все понятно,очень старалась объяснить

Задача 1:

Program Test1;

Var min, i: integer; num: array[1..5] of integer;

Begin

Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);

min := 0;

for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;

if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end

else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;

End.



Задача 2:

Program Test2;

Var max, i: integer; num: array[1..10] of integer;

Begin

Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);

max := 0;

for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;

if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end

else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;

End.