Запишите значение переменной k, полученное в результате работы следующей программы:
var k,i,d:integer;
begin
k := 0;
d := 2;
for i:= 1 to 3 do
k := d+\(i\*i\);
writeln\(k\);
end.