program
      var x : integer ;
      var s : integer ;
      begin
         x := 0 ; s:= 0 ;
         x := x+1 ; s := s+x ;
         x := x+1 ; s := s+x ;
         x := x+1 ; s := s+x ;
         x := x+1 ; s := s+x ;
         writeln(s)
      end
      ;;