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