Даны естественные числа n и k. Отыскать ответ примера 1k +

program zz1;
var n,k,s,i:integer;   //задаем переменные
begin
writeln(Введите n); //вводим 1-ое данное число
read(n);
writeln(Введите k); //вводим 2-ое заданное число
read(k);
for i:=1 to n do //перебираем все числа от 1 до n
s:=s+i*k; //обретаем сумму
write(Сумма = ,s); //выводим ответ
end.