Var p, k: integer;beginp := 3;k := 0;while p <= 7 dobegink := k + p;p := p + 1end;

твоя программа ничего не выведит т.к нет writeln (я так понимаю это паскаль). В конце программы k = 25 p = 8