Задание

Запишите значение переменной k, полученное в результате работы следующей программы:

var k,i,d:integer;

begin

k := 0;

d := 2;

for i:= 1 to 3 do

k := d+(i*i);

writeln(k);

end.