Var s,k: integer; begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); end.
При выполнении этого фрагмента программы выведется число 56