Даны натуральные числа n и k. Найти ответ примера 1k + 2k + ... + nk. В Паскале

program zz1;

var n, k, s, i:integer; / /задаем переменные

begin

writeln ('Введите n'); / /вводим первое заданное число

read (n);

writeln ('Введите k'); / /вводим второе заданное число

read (k);

for i:=1 to n do / /перебираем все числа от 1 до n

s:=s+i*k; / /находим сумму

write ('Сумма = ', s); / /выводим ответ

end.