Какое число будет выведено на печать после выполнения данного фрагмента var k, a, c integer; begin c=-3; a=4; k=5; while k < c+3do begin a=a+c+k; k=k+1 end; writeln(a); ..

1. В вашей программе вагон синтаксических косяков. 
2. Программа выведет 4, потому что проверяется условие while k < C + 3, то есть цикл выполняется, пока K < 0. Изначально K = 5, то есть условие цикла не выполнится, и цикл завершится даже не начавшись, значит переменная A так и останется равна 4.
ответ 4, хотя скорее всего вы просто неверно записали условие задания.