Запишите значение переменной d, полученное в результате работы программы.

Var d, i: integer;
Begin
d := 0;
for i := 1 to 5 do
d := d + i * i;
writeln\(d\);
End.