Информатика. Срочно. Дайте ответ.

Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 3;

s := 0;

while n <= 7 do begin

s := s + 4;

n := n + 1

end;

write(s)

end.