Найти сумму всех n-значных чисел кратны К(любое число). ПАСКАЛЬ!

Предыдущий
вопрос Следующий
вопрос

program SumNMultipleK;

var
n, k, i, sum: integer;

begin
writeln('Введите значение n: ');
readln(n);

writeln('Введите значение K: ');
readln(k);

sum := 0;

for i := 1 to n do
begin
sum := sum * 10 + 9;
end;

sum := sum k ((1 + sum) div 9);

writeln('Сумма всех ', n, '-значных чисел кратных ', k, ': ', sum);
end.