НАЙТИ ОШИБКИ И ИСПРАВИТЬ,И ЗАПОЛНИТЬ ПРОПУСКИ Вычислить сумму цифр заданного k -значного числа Var k : 1..4; n: Double; Begin writeln(Введите количество цифр k:); readln(k); writeln(Введите число:); readln(n); case k of 1 : writeln (сумма цифр:, _____); 2 : writeln (сумма цифр:, (n div 10) + (n mod 10)); 3 : writeln (сумма цифр:, _______________________); 4 : writeln (сумма цифр:, (n div 1000)+ (n div 10 mod 10)+(n div 10 mod 10) + (n mod 10)); end;

1 : writeln (сумма цифр:,  k + n);
2 : writeln (сумма цифр:, (n div 10) + (n mod 10));
3 : writeln (сумма цифр:, k + k);
4 : writeln (сумма цифр:, (n div 1000)+ (n div 10 mod 10)+(n div 10 mod 10) + (n mod 10));