Помогите решить задачу на языке программирования Pascal. Дано натуральное числа К и…

Вот, если правильно понял условие: var K,i,j,r,sum: integer; n,m: string; begin Writeln ('Введите кол-во цифр K: '); readln (K); Writeln ('Введите число n: '); readln (n); for i: =1 to K do begin m: =copy (n,i,1); val (m,j,r); sum: =sum+j; end; sum: =sum*sum; Writeln ('Квадрат суммы первых K чисел равен: ', sum); end.