ответьте пожалуйста
1)Как дуэль характеризует Евгения Онегина?
2) Характеристика Ленского?

Помогите, пожалуйста. Не разбираюсь в паскале вообще. Задача с использованием функции.

Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат( на 1-1 зерно, на 2- 2 зерна, на 3- 4 зерна...)

Пример 28-134217728 зерна

Определите, что будет напечатано в результате выполнения следующего алгоритма
var a,b:integer;
begin
a:=0;
b:=2364;
while b>0 do begin
if b mod 10<5 then
a:=a+b mod 10;
b:=b div 10;
end;
writeln(a);
end.

объясните, как решать, пожалуйста.