Program ABC;

Var
firstNum, secondNum, result, remainder: integer;

Begin
// При помощи цикла с постусловием
writeln('A) При помощи цикла с постусловием:');
firstNum := 9111019;
secondNum := 7;
result := 0;
remainder := 0;

repeat
result := (firstNum mod 10) + secondNum + remainder;
remainder := result div 10;

firstNum := firstNum div 10;

until firstNum = 0;

writeln('Результат: ', result);

// При помощи цикла с предусловием
writeln('B) При помощи цикла с предусловием:');
firstNum := 9999999998;
secondNum := 5;
result := 0;
remainder := 0;

while firstNum > 0 do
begin
result := (firstNum mod 10) + secondNum + remainder;
remainder := result div 10;

firstNum := firstNum div 10;

end;

writeln('Результат: ', result);

// При помощи цикла «Повтори N раз»
writeln('C) При помощи цикла «Повтори N раз»:');
firstNum := 7000000008;
secondNum := 2;
result := 0;
remainder := 0;

for firstNum := firstNum downto 0 do
begin
result := (firstNum mod 10) + secondNum + remainder;
remainder := result div 10;

firstNum := firstNum div 10;

end;

writeln('Результат: ', result);

// Без цикла (при помощи возврата на метку)
writeln('D) Без цикла (при помощи возврата на метку):');
firstNum := 10063;
secondNum := 8;
result := (firstNum mod 10) + secondNum;
remainder := result div 10;

firstNum := firstNum div 10;
result := (firstNum mod 10) + remainder;

writeln('Результат: ', result);

End.